我正在尝试使用以下代码从应用程序获取所有对象详细信息,即Name和Id。
Sub Objects
Shtobj = ActiveDocument.ActiveSheet.GetSheetObjects
For i = LBound(Shtobj) To UBound(Shtobj)
'MsgBox(Shtobj(i).GetObjectName)
MsgBox(Shtobj(i).GetObjectId)
Next
End Sub
但是.GetObjectName
没有给我这个对象的名字。