添加宏以插入文本框

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