2012/07/19

【Excel】現在のシート内にあるテキストボックスの書式を一括で変更する

Sub TextBoxFormat()

Dim myOb As Object

For Each myOb In ActiveSheet.TextBoxes

With myOb '書式設定
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

Next

End Sub

参考:この辺

0 コメント:

コメントを投稿