Excel VBA質問箱 IV

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

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


47950 / 76738 ←次へ | 前へ→

【33733】Re:オブジェクトの選択方法
回答  小僧  - 06/1/19(木) 16:22 -

引用なし
パスワード
   ▼nn さん:
こんにちは。

>これから書く四角についてはこれで出来ると思いますが
>既に70個ぐらい図形がかかれており、

本来でしたら、0 からやり直す方が良いと思われるのですが…。

Sub シートに配置された四角形を探す()
Dim MyShape As Shape
Dim lngRow As Long

  lngRow = 28

  For Each MyShape In ActiveSheet.Shapes
    If MyShape.Top - (Range("H" & lngRow).Top + 4) >= -0.25 And _
      MyShape.Top - (Range("H" & lngRow).Top + 4) <= 0.25 Then
      MsgBox "対象の四角形は" & MyShape.Name & "かも"
      'MyShape.Delete
      Exit For
    End If
  Next
End Sub

変数:lngRow に格納はセルの列を指定して下さい。
セルの高さを変更していなければ
(うまくいけば)対象の四角形を抽出できると思います。

四角形を貼り付けた際に 0.25 ピクセルのずれが生じる事があったので
実際にうまく行くかどうかはちょっと解りません。


上記のコードで四角形を特定できるようでしたらコメント部分を外して下さい。
0 hits

【33723】オブジェクトの選択方法 nn 06/1/19(木) 11:38 質問
【33727】Re:オブジェクトの選択方法 小僧 06/1/19(木) 14:17 回答
【33730】Re:オブジェクトの選択方法 nn 06/1/19(木) 15:21 質問
【33733】Re:オブジェクトの選択方法 小僧 06/1/19(木) 16:22 回答
【33744】Re:オブジェクトの選択方法 nn 06/1/19(木) 19:47 質問
【33753】Re:オブジェクトの選択方法 小僧 06/1/19(木) 21:43 回答
【33779】Re:オブジェクトの選択方法 nn 06/1/20(金) 11:58 お礼

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