Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30084 / 76738 ←次へ | 前へ→

【51924】Re:オートシェイプのセレクト
回答  りん E-MAIL  - 07/10/12(金) 5:50 -

引用なし
パスワード
   太郎 さん、おはようございます。

>シート上に作ったオートシェイプにマクロを登録するマクロを
>作りたいです。
>Selection.OnAction = "TEST"


アクティブなシート上のオートシェイプ(楕円)にマクロをのせる例です。
Sub Macro1()
  Dim sh As Shape
  For Each sh In ActiveSheet.Shapes
   'オートシェイプ
   If sh.Type = msoAutoShape Then
     '楕円
     If sh.AutoShapeType = msoShapeOval Then
      sh.OnAction = "TEST"
     End If
   End If
  Next
End Sub

こんな感じです。
四角形にのせる場合は、msoShapeOval → msoShapeRectangle です。
複数あるうちの一つにのせる場合は、セルの位置やテキストの文字列で判断するのがいいかと思います。

0 hits

【51921】オートシェイプのセレクト 太郎 07/10/11(木) 23:28 質問
【51924】Re:オートシェイプのセレクト りん 07/10/12(金) 5:50 回答
【51928】Re:オートシェイプのセレクト mizunu 07/10/12(金) 9:40 回答
【51938】Re:オートシェイプのセレクト 太郎 07/10/12(金) 13:55 お礼

30084 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free