[[20090419101025]]　『オートシェイプのTopのみ指定して削除』（CHISA）　ページの最後に飛ぶ

『オートシェイプのTopのみ指定して削除』（CHISA）

 またオートシェイプのマクロでつきづきました(;;)
 助けてください。お願いしますm(__)m

 例えば、10個あるオートシェイプのうち
 Topの位置が230のオートシェイプだけ削除したいんです。
 LeftやWidthはバラバラで、該当するオートシェイプの数もないときもあるし、
 複数あるときもあります。

 そんなことってできますか？
 よろしくお願いしますm(__)m
 (CHISA)

 こんにちは。かみちゃん　です。

 > Topの位置が230のオートシェイプだけ削除したい

 Topプロパティの値が230のオートシェイプの名前を表示するには、以下のような感じになります。
 これで確認できるようであれば、
 '        .Delete
 のコメントを外して実行すると、削除されると思います。

 Sub Sample()
   Dim i As Long
   Dim shp As Shape

   For i = ActiveSheet.Shapes.Count To 1 Step -1
     With ActiveSheet.Shapes(i)
       If .Top = 230 Then
         MsgBox .Name & "を削除します"
 '        .Delete
       End If
     End With
   Next
   MsgBox "終了"
 End Sub

 (かみちゃん)
 2009-04-19 10:43

 かみちゃん　さんこんにちわm(__)m

 かなりバッチリです(^^)/
 こんな簡単にできるとは思いませんでした♪♪

 かみちゃん　さんありがとうございましたm(__)m
 (CHISA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090419101025]] 『オートシェイプのTopのみ指定して削除』（CHISA） ページの最後に飛ぶ

[[20090419101025]]　『オートシェイプのTopのみ指定して削除』（CHISA）　ページの最後に飛ぶ