見出し画像
Photo by hism

図形の頂点をVBAで操作する

タナイ

こないだはじめて頂点をVBAで動かしたい場面に遭遇したので誰かの役に立てば。

Dim shp As Shape
Dim TarNum As Long '頂点のインデックス'
Dim NewX As Single
Dim NewY As Single

With shp.Nodes
    Debug.Print Item(TarNum).Points(1,1) 'X座標'
    Debug.Print Item(TarNum).Points(1,2) 'Y座標'
    Call .SetPosition(TarNum, NewX, NewY)
End With

こんな感じで動く。Points()は取得のみのプロパティなので動かすときは.SetPositionメソッドを使うことに注意。


そういえばKindle Unlimitedにこんな本が載っていたので読み終わったらレビュー記事でもしたためよう。


よろしければサポートお願いします🥕 サポートはレビュー記事作成の原資となります