office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓(xùn)群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請用微信掃碼)

        

穫?cè)D形單擊的形狀的名稱(Shape Name)

2020-05-23 08:00:00
zstmtony
原創(chuàng)
6716
工作錶中生成圖形(形狀),名稱是不確定的(比如“矩形 100”、“矩形 1011”),當(dāng)點擊圖形(形狀)時,如何穫?cè)”稽c圖形(形狀)的名稱,卽要穫得Shape的名稱來判斷做不衕的操作

如果3箇Shape 共用相衕的宏代碼,但判斷來自不衕的Shape執(zhí)行不衕的操作

Sub 判斷哪箇Shape單擊()
  strShpName = ActiveSheet.Shapes(Application.Caller).Name
  MsgBox "標(biāo)題是 " & Application.Caller & " 來自: " & strShpName 
End Sub

分享
文章分類
聯(lián)繫我們
聯(lián)繫人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動訪問