順序を最前面に移動
図形やワードアートなどの順序を最前面に移動したい場合は、下記のように記載します。
ActiveSheet.Shapes("図形名").Select
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes("WordArt 1").Select
Selection.ShapeRange.ZOrder msoBringToFront
上記のように記載すると、ワードアートの１が最前面に表示されます。
図形やワードアートなどの順序を最前面に移動したい場合は、下記のように記載します。
ActiveSheet.Shapes("図形名").Select
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes("WordArt 1").Select
Selection.ShapeRange.ZOrder msoBringToFront
上記のように記載すると、ワードアートの１が最前面に表示されます。