スキルアップ・問題解決なら、モーグにおまかせ！

新しいテキストボックスを作成します。


  構文  Object.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, 
                          Top, Width, Height)


  設定項目              内容
  Object                Shapesコレクションオブジェクト [省略不可]
  Orientation           テキスト配置の方向を指定 [省略不可]
  Left                  テキストボックスの左端位置を指定 [省略不可]
  Top                   テキストボックスの上端位置を指定 [省略不可]
  Width                 テキストボックスの幅を指定 [省略不可]
  Height                テキストボックスの高さを指定 [省略不可]


次のサンプルは、数式の入力されているセルの横に、数式の内容をテキストとして持つテクストボックスを作成します。


●サンプル●

Sub AddTextboxSamp1()
    Dim c As Range

    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        ActiveSheet.Shapes.AddTextbox( _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=c.Offset(, 1).Left, Top:=c.Offset(, 1).Top, _
            Width:=c.Offset(, 1).Width, Height:=c.Offset(, 1).Height).Select
            '---数式の入力されているセルの横にテキストボックスを作成し、選択する
        With Selection
            .Characters.Text = c.FormulaLocal  '---テキストには数式の内容を設定
            .AutoSize = True   '---自動サイズ調整にする
        End With
        c.Select               '---テキストボックス選択を解除
    Next c

End Sub