添加宏以插入文本框

Question

有沒有可能通過宏添加文本框？所以我點擊Link並添加一個文本框......我之前做的是設置文本框的默認外觀。所以當我添加它時，它總是看起來如何。

Answer 1

我設法立即創建工作的按鈕......我用這個代碼：很多爲

Private Sub CommandButton1_Click() 
ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 361.5, 59.25, 420, _ 
    90.75).Select 
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ 
    "Here you have your textbox" 
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 26).ParagraphFormat. _ 
    FirstLineIndent = 0 
End Sub 

Answer 2

我爲此記錄了一個宏...它可能不是最好的解決方案，但它可以完成您要求的任務。

Sub AddTextbox() 
' 
' Macro1 Macro 
' 

' 
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 361.5, 59.25, 420, _ 
    90.75).Select 
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ 
    "Here you have your textbox" 
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 26).ParagraphFormat. _ 
    FirstLineIndent = 0 
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 26).Font 
    .NameComplexScript = "+mn-cs" 
    .NameFarEast = "+mn-ea" 
    .Fill.Visible = msoTrue 
    .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1 
    .Fill.ForeColor.TintAndShade = 0 
    .Fill.ForeColor.Brightness = 0 
    .Fill.Transparency = 0 
    .Fill.Solid 
    .Size = 11 
    .Name = "+mn-lt" 
End With 
End Sub