EXCEL2000 VBA シートのシェイプを中央揃いにする 実験

EXCEL2000 VBA  シートのシェイプを中央揃いにする　実験

 

再生できない場合、ダウンロードは🎥こちら

マクロを図形描画ツールバーに登録
方法は、マクロボタンを図形描画ツールバーにドラッグ＆ドロップ

再生できない場合、ダウンロードは🎥こちら

 

 

 

Sub シートのシェイプを中央揃い2()

'

' フローチャートを作成に便利？

'Shift+右クリックで選択したシェイプを中央揃い

On Error GoTo owari

 

    Selection.ShapeRange.Align msoAlignCenters, False

 

owari:

End Sub

 

 

Sub シートのシェイプを中央揃い()

'

' フローチャートを作成に便利？

'

' シートのシェイプを全て選択

    ActiveSheet.Shapes.SelectAll

'中央揃いに

    Selection.ShapeRange.Align msoAlignCenters, False

End Sub

 

タグ：Excel2000 VBA