図形の頂点を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にこんな本が載っていたので読み終わったらレビュー記事でもしたためよう。

ADHDでも生きていける在宅起業のコツ: ADHDの人が在宅で起業し継続していける、その理由とコツとは？ (合同会社イーサン・マネジメント研究所)