2024年7月2日 星期二

vba 透過for each 控制按鈕物件

很簡單,透過oleobjects來存取物件即可

 Sub button_visible()

    Dim aa As Object
    For Each aa In ActiveSheet.OLEObjects
        aa.Visible = False
    Next btn

End Sub

沒有留言:

張貼留言

12 星座未來一週股市走跳|2026/8/23–8/29(台股×美股)

12 星座未來一週股市走跳|2026/8/23–8/29(台股×美股) 本報以 印度占星月亮星座 Rashi 為準(恆星黃道 Sidereal,2026 歲差約 24°13'),星曆由純 Python 天文演算法(VSOP87+章動+Lahiri 歲差)真...