テキストボックスを作成する(AddTextboxメソッド)：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

次のサンプルは、数式の入力されているセルの横に、数式の内容をテキストとして持つテキストボックスを作成します。 ●サンプル● Sub Sample() Dim c As Range For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas) '---数式が入力されているセルの横にテキストボックスを作成し、選択する ActiveSheet.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=c.Offset(0, 1).Left, _ Top:=c.Offset(0, 1).Top, _ Width:=c.Offset(0, 1).Width, _ Height:=c.Offset(, 1).Height).Select Wi

[moerrari]

テキストボックスの作成にはAddTextboxメソッドを使う。