更新单元格到插入对象的标题 - 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

回答

相关问题