更新單元格到插入對象的標題 - Excel-VBA

-1

我有一個插入的形狀，我想用作按鈕。我實際上有將近400個這些被命名的插入的obects。我的問題是，在這種情況下，如何使用宏設置單元格E10，使其等於對象的標籤（標題）。所有對象標題都是數字。更新單元格到插入對象的標題 - Excel-VBA

不同尋常的是，我想將同一個宏賦予每個對象，以便單擊對象將單元格E10設置爲等於對象的可見標題。

我發現改變對象或按鈕的標題以匹配另一個單元格，但無法找到這種類型的問題回答了很多例子。謝謝大家。

來源

2014-08-30 Firebat

分配該宏（標準模塊中），以各種形狀：

Sub ShowName() 
    Sheets("Sheet1").Range("E10").Value = Application.Caller 
End Sub

EDIT＃1

這將放置形狀兩者的名稱，並在細胞中的顯示的文本：

Sub ShowNameAndText() 
    Dim s As Shape, t As String 
    t = Application.Caller 
    msg = t & vbCrLf & ActiveSheet.Shapes(t).TextFrame.Characters.Text 
    Sheets("Sheet1").Range("E10").Value = msg 
End Sub

來源

2014-08-30 23:23:05

當我插入一個對象時，它似乎將它命名爲「名稱框」名稱，例如「Rounded Rectangle 54」。我點擊對象並將可見標籤更改爲「22」。因此，圓形矩形現在看起來標記爲22.您提供的答案是完美的，只不過它將單元格設置爲等於名稱框值（圓角矩形54）。對不起，我無法完整描述我想要複製到單元格中的內容。 – Firebat 2014-08-30 23:35:51

請參閱我的**編輯＃1 ** – 2014-08-30 23:52:19

完美，謝謝。 – Firebat 2014-08-31 00:08:54

更新單元格到插入對象的標題 - Excel-VBA

回答

相關問題