[已解决]菜单按钮对象怎样表达

爱疯

 

Sub a()
    
    '显示工作表sheet1中控件按钮ABC的标题。返回CommandButton1
    MsgBox Sheet1.ABC.Caption
    
    '显示工作表sheet1中控件按钮ABC的名称。返回"ABC"
    MsgBox Sheet1.ABC.Name
    
    '显示工作表sheet1中菜单按钮C的标题?
    
    
    '显示工作表sheet1中菜单按钮C的名称?


End Sub

谢谢！

x2cEdbb4.rar (10.03 KB, 下载次数: 0)

2009-12-17 13:17 上传

点击文件名下载附件
菜单按钮对象怎样表达

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-17 13:23

Option Explicit

Sub a()
    
    '显示工作表sheet1中控件按钮ABC的标题。返回CommandButton1
    MsgBox Sheet1.ABC.Caption
    
    '显示工作表sheet1中控件按钮ABC的名称。返回"ABC"
    MsgBox Sheet1.ABC.Name
    
    '显示工作表sheet1中菜单按钮C的标题?
    
    MsgBox Sheet1.Shapes("按钮 1").AlternativeText
    
    '显示工作表sheet1中菜单按钮C的名称?
    
    MsgBox Sheet1.Shapes("按钮 1").Name

End Sub

跳转到最佳答案楼层

amulee

Option Explicit

Sub a()
    
    '显示工作表sheet1中控件按钮ABC的标题。返回CommandButton1
    MsgBox Sheet1.ABC.Caption
    
    '显示工作表sheet1中控件按钮ABC的名称。返回"ABC"
    MsgBox Sheet1.ABC.Name
    
    '显示工作表sheet1中菜单按钮C的标题?
    
    MsgBox Sheet1.Shapes("按钮 1").AlternativeText
    
    '显示工作表sheet1中菜单按钮C的名称?
    
    MsgBox Sheet1.Shapes("按钮 1").Name

End Sub

amulee

另外，如果是按钮的话。

Option Explicit

Sub a()
    
    '显示工作表sheet1中控件按钮ABC的标题。返回CommandButton1
    MsgBox Sheet1.ABC.Caption
    
    '显示工作表sheet1中控件按钮ABC的名称。返回"ABC"
    MsgBox Sheet1.ABC.Name
    
    '显示工作表sheet1中菜单按钮C的标题?
    
    MsgBox Sheet1.Shapes("按钮 1").OLEFormat.Object.Caption
    
    '显示工作表sheet1中菜单按钮C的名称?
    
    MsgBox Sheet1.Shapes("按钮 1").OLEFormat.Object.Name

End Sub

Dj_soo

Option Explicit

Sub a()
    
    '显示工作表sheet1中控件按钮ABC的标题。返回CommandButton1
    MsgBox Sheet1.ABC.Caption
    
    '显示工作表sheet1中控件按钮ABC的名称。返回"ABC"
    MsgBox Sheet1.ABC.Name
    
    '显示工作表sheet1中菜单按钮C的标题?
    
    MsgBox Sheet1.Shapes("按钮 1").DrawingObject.Caption
    
    '显示工作表sheet1中菜单按钮C的名称?
    
    MsgBox Sheet1.Shapes("按钮 1").Name

End Sub

爱疯

谢谢阿木！

1、在编辑代码时，输入"sheet1"后打点，会从提示列表里找到控件按钮对象（ABC）。为什么找不着菜单按钮对象(button 1)?

2、引用同一个单元格、工作表、工作簿等等，存在多种引用方式。引用菜单按钮，除"Sheet1.Shapes("按钮 1")."这种引用方式外，还有其他方式吗？

[此贴子已经被作者于2009-12-17 13:48:50编辑过]

Dj_soo

[em32][em32][em32]

爱疯

谢谢DJ！

怎么2，3，4楼的答案，还有差异？我该怎么记呀[em06]

Dj_soo

QUOTE:

以下是引用爱疯在2009-12-17 13:38:00的发言：

谢谢DJ！

怎么2，3，4楼的答案，还有差异？我该怎么记呀[em06]

amulee的是规范的,我的呢,是从本地属性查的.都能得到想要的,至于选哪种方式,看你喜欢咯.

如果能记住,就用OLEFormat.Object.Caption模式的,如果记不住,就到本地属性窗口查好了.

爱疯

QUOTE:

以下是引用Dj_soo在2009-12-17 13:40:00的发言：

amulee的是规范的,我的呢,是从本地属性查的.都能得到想要的,至于选哪种方式,看你喜欢咯.

如果能记住,就用OLEFormat.Object.Caption模式的,如果记不住,就到本地属性窗口查好了.

能否像总结单元格、工作表、工作簿外，总结出有哪N种方式？

[em09]

Dj_soo

QUOTE:

以下是引用爱疯在2009-12-17 13:51:00的发言：

能否像总结单元格、工作表、工作簿外，总结出有哪N种方式？

[em09]

额...我也不会总结

[em32]