圖案指定巨集

插入一個圖案後，可以指定它的執行巨集，但好像只能指定 Module 裡的 Sub
如果我要指定工作表中的 Private Sub 做為圖案的巨集，不知該如何指定?
例如
Private Sub CommandButton1_Click()
Columns("G:J").EntireColumn.Hidden = False
OptionButton1 = False
OptionButton2 = False
OptionButton3 = False
Module1.test
End Sub
我想用一個圖案，把 CommandButton1 替換掉，這個圖案的巨集該如何指定?

樓主熱帖

Jess

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

2^#

發表於 2011-11-17 22:01 | 顯示全部帖子

本帖最後由 jesscc 於 2011-11-17 22:08 編輯

謝謝G大!
這個圖案的名稱叫 "圓角矩形1"，應該無所謂吧!它們都是屬於 Shapes 吧?
如果有很多Shapes
Sub Ex()
Sheet1.Shapes(1).OnAction = "Sheet1.CommandButton1_Click"
Sheet1.Shapes(2).OnAction = "Sheet1.CommandButton2_Click"
Sheet2.Shapes(3).OnAction = "Sheet2.CommandButton3_Click"
End Sub
把所有的Shapes都指定到Ex這個巨集
可以這樣寫嗎?

Jess

TOP

jesscc