オートシェイプの真ん中に文字を入れる

オートシェイプに文字を入れる場合は、右クリックして『テキストの追加』を選択する。
しかし下図のように上詰め、左寄せに入ってしまい、後から色々と調整しなければならない。
e0080122_8434575.gif

これをマクロでやるとどうなるのか?ためしにやってみた。
今回はテキスト部分はA1に入力した文字をそのまま使ってみることにした。

Sub ど真ん中に配置()
 Dim 楕円 As Shape
 Set 楕円 = ActiveSheet.Shapes("en") '予めオートシェイプに名前をつけてある
   With 楕円.TextFrame
     .Characters.Text = Range("A1").Value
     .HorizontalAlignment = xlHAlignCenter
     .VerticalAlignment = xlVAlignCenter
   End With
End Sub
e0080122_849792.gif

[PR]
by slayer0210 | 2005-12-06 08:50 | マクロ


<< 重複データを除く表を作成(関数) 行列を入れ替える(関数) >>