テキストボックスを作成する2

記事『 テキストボックスを作成する 』のつづき、
テキストボックスの設定を詳しく見ていきます。

まずはテキストボックスには
どんな設定ができるのかを調べます。

テキストボックスの枠のところで右クリックして、

テキストボックスの書式設定を見ます。

以下タブの名前と設定できるものを列挙します。

フォント
    フォント名
    スタイル
    サイズ
    文字飾り-取り消し線
    文字飾り-上付き
    文字飾り-下付き
    下線
    色
    標準フォント

配置
    文字の配置-横位置
    文字の配置-縦位置
    方向
    自動サイズ調整

色と線
    塗りつぶし-色
    塗りつぶし-半透明にする
    線-色
    線-スタイル
    線-実線/点線
    線-太さ

サイズ
    サイズと角度-高さ
    サイズと角度-幅
    倍率-縦横比を固定する

保護
    ロック
    文字列のロック

プロパティ
    セルに合わせて移動やサイズ変更
    (移動やサイズ変更する/移動するがサイズ変更はしない/変更はしない)
    オブジェクトを印刷する

余白
    左
    上
    右
    下

Web
    代わりに表示する文字列

タブごとにみていきます。
以下はタブごとに設定できるものを
Withステートメントでまとめてあるコードです。

必要なWithブロックを
テキストボックス作成の「基本のコード」の中、
ここから、ここまでの間にコピペしてください、
またWithブロックの中で不必要なものは消してください。

「基本のコード」の中のAddTextboxメソッドの引数や
ボックス内の文字列は適宜変更してください。
基本のコードはこちら

Sub macro110716a()
'テキストボックス作成「基本のコード」
'オブジェクト変数を使 用

    Dim tb As Object
   
    'テキストボックス作成
    Set tb = ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, _
        50, 50, _
        200, 120).DrawingObject
            
    ' ボックス内の文字列
    tb.Characters.Text = "abc" & Chr(10) & "def"
   
    'ここから
   
   
    'ここまで
End Sub

フォント

    'フォント
    With tb.Characters.Font
        .Name = "ＭＳ Ｐゴシック" 'フォント名
        .FontStyle = "標準" 'スタイル
            '標準/斜体/太字/太字 斜体(フォントで異なる場合も)
        .Size = 11 'サイズ
        .Strikethrough = False '文字 飾り-取り消し線
        .Superscript = False '文字飾り-上付き
        .Subscript = False '文字飾り-下付き
        .Underline = xlUnderlineStyleNone '下線
        .ColorIndex = xlAutomatic '色
        '標準フォントにするときは これらを設定しない
    End With

配置

    '配置
    With tb
        .HorizontalAlignment = xlLeft '文字の配置-横位置
            'xlLeft/xlCenter/xlRight/xlJustify/xlDistributed
        .VerticalAlignment = xlTop '文字の配置-縦位置
            'xlTop/xlCenter/xlBottom/xlJustify/xlDistributed
        .Orientation = xlHorizontal '方向
            'xlHorizontal/xlVertical/xlUpward/xlDownward
        .AutoSize = True '自動サイズ調整
    End With

色と線

    '色と線-塗りつぶし
    With tb.ShapeRange.Fill
        .Visible = msoTrue '色-ありなし
            'msoTrue/msoFalse
        .ForeColor.SchemeColor = 40 '色
        .Transparency = 0.8 '半透明にする
            '0から1まで、1=透明
    End With
   
    '色と線-線
    With tb.ShapeRange.Line
        .Visible = msoTrue '色-ありなし
        .ForeColor.SchemeColor = 53 '色
        .Weight = 1.5 '太さ
        .DashStyle = msoLineSolid '実線/点線
            'msoLineSolid/msoLineRoundDot/msoLineSquareDot/msoLineDash
            'msoLineDashDot/msoLineLongDash/msoLineLongDashDo/msoLineDashDotDot
        .Style = msoLineSingle 'スタイル
            'msoLineThinThin/msoLineThinThick
            'msoLineThickThin/msoLineThickBetweenThin
    End With

サイズ

    'サイズ
    With tb.ShapeRange
        .LockAspectRatio = msoTrue '倍率-縦横比を固定する
        .Height = 86.25 'サイズと角度-高さ
        .Width = 119.25 'サイズと角度-幅
    End With

保護

    '保護
    With tb
        .Locked = True 'ロック
        .LockedText = True '文字列のロック
    End With

プロパティ

    'プロパティ
    With tb
        .Placement = xlMoveAndSize 'セルに合わせて移動やサイズ変更
            'xlMoveAndSize/xlMove/xlFreeFloating
        .PrintObject = True 'オブジェクトを印刷する
    End With

余白

    '余白
    With tb.ShapeRange.TextFrame
        .MarginLeft = 7.09 '左
        .MarginRight = 7.09 '右
        .MarginTop = 3.69 '上
        .MarginBottom = 3.69 '下
    End With

Web

    'Web
    tb.ShapeRange.AlternativeText = "abc" & Chr(10) & "def"