文書番号: 402459
最終更新日: 1997/10/20
Sub CreateTextBox() Dim pleft, ptop, pwidth, pheight pleft = Worksheets("Sheet1").Range("$A$1:$B$2").Left ptop = Worksheets("Sheet1").Range("$A$1:$B$2").Top pwidth = Worksheets("Sheet1").Range("$A$1:$B$2").Width pheight = Worksheets("Sheet1").Range("$A$1:$B$2").Height Worksheets("Sheet1").TextBoxes.Add pleft, ptop, pwidth, pheight End Sub
Keywords: KBHOWTO KB402459
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch