ワークシート上にある図形を、同一ワークシート上の別の位置に移動させるVBAを紹介します。 上図のように、青色の「ひし形1」をJ列に移動させるVBAは以下のようになります。 Sub 図形移動 () ActiveSheetShapes ("ひし形 1")Left = Range ("J2")Left End Sub 「ひし形1