[[20220408154319]]　『オートシェイプ製のマクロ実行ボタンを凹ませたい』（ミャンマー）　ページの最後に飛ぶ

『オートシェイプ製のマクロ実行ボタンを凹ませたい』（ミャンマー）

マクロを実行するボタンをおしゃれにしようと
オートシェイプから作成したのですが、
押したときに凹ませたり、色を変えたりするように出来るのでしょうか。

登録マクロは次の通りです。

Sub 実行ボタン_Click()
test
End Sub

もし可能であれば方法を教えて欲しいです。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 あくまでもそれっぽく見えるってだけですが、
 シートのオブジェクト名や、オートシェイプの名前は適切に変更してください。

 Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)

 Sub 楕円2_Click()
    With Sheet1.Shapes("楕円 2")
      .IncrementLeft 4
      .IncrementTop 4
      DoEvents: DoEvents
      Sleep 100
      DoEvents: DoEvents
      .IncrementLeft -4
      .IncrementTop -4
      DoEvents: DoEvents
    End With
 End Sub
（´・ω・`） 2022/04/08(金) 16:36

コメント返信：

[ 一覧(最新更新順) ]

[[20220408154319]] 『オートシェイプ製のマクロ実行ボタンを凹ませたい』（ミャンマー） ページの最後に飛ぶ

[[20220408154319]]　『オートシェイプ製のマクロ実行ボタンを凹ませたい』（ミャンマー）　ページの最後に飛ぶ