Excel VBA 質問スレ Part51

[683 デフォルトの名無しさん (ﾜｯﾁｮｲ cffa-buzn) 2017/12/23(土) 10:35:36.95 ID:oVsH3Gmz0]

フォームコントロールボタンの文字の色を変えたいんだけど
セレクトしない方法はないのですか？

Sub test01()
　n = Worksheets("Sheet1").Shapes("Button 1").Name
　Worksheets("Sheet1").Shapes(n).Select
　Selection.Font.ColorIndex = 3
End Sub