【ExcelVBA】図形をセル中央に整列させる
図形移動の処理を作れたのですが、
Dragで移動させられると楽なのにと思っています。
そこで、Drop時にセルの中央に合わせられないかと考えていたのですが、
実現が難しいんですよね。( ̄~ ̄;) ウーン
いろいろと考えて思いついたのが、
図形を一括で整列させる方法です。
Drop時にセル中央に移動しなくても
移動させた図形を一括でセル中央に整列させられれば、
もう少し、直感的な作業ができるのでは!?と考えました。
これなら図形を個々に調整するより楽かもって事で処理を考えてみます。
まず図形がどのセル上にあるか判断する必要があります。
セルが分かれば、そのセルの中央に移動させるだけの処理なので簡単に作れそうです。
シート上の図形を取得して、どのセルか割り出します。
標準モジュール
Option Explicit
Sub CellSearch()
Dim sh As Shape 'シート上の図形取得'
Dim cell As Range '図形下のセルを取得'
For Each sh In ActiveSheet.Shapes
With ActiveSheet.Shapes(sh.Name)
Set cell = Range(.TopLeftCell, .BottomRightCell)
End With
…









