質問: VBAについて、ご教授お願いします。範囲内の図形のカウント方法について。 ・特定の範囲内の画像・図形のカウント方法 ・特定の範囲内にある画像をあるセルに表示させる方法 のやり方を教えて下さい。どのような方法があるでしょうか? Range("A2")からRange("G8")にある画像の数を数えて、セルに貼りつけたり、msgboxに出したりするのはどのような方法があるでしょうか? ネットで見ると、色々な方法があるみたいなので、どれが正しいのか難しく。 また、例えば空白の↑のセル範囲に画像を置くと、Range(”B1”)にその画像数を自動的に数える方法はどのようなモノがあるでしょうか? イベントプロシージャ?という自動的に数えてくれる方法が一番いいのでしょうか?
回答: 画像、図形共に数えます。 A2~G8の範囲内を数えます。少しでもはみ出していたら対象外とします。 Option Explicit ' Sub Macro1() Dim Shape As Shape Dim Count As Integer ' For Each Shape In ActiveSheet.Shapes ' If Not Intersect(Shape.TopLeftCell, [A2:G8]) Is Nothing And _ Not Intersect(Shape.BottomRightCell, [A2:G8]) Is Nothing Then Count = Count + 1 End If Next Shape MsgBox Count [B1] = Count End Sub