Makro hinzufügen, um Textbox einzufügen

Question

Gibt es eine Möglichkeit, eine Textbox über ein Makro hinzuzufügen? Also klicke ich auf den Link und es wird ein Textfeld hinzugefügt ... Was ich vorher getan habe, ist das Standard-Aussehen eines Textfeldes. Es sieht also immer so aus, wie ich es will, wenn ich es hinzufüge.

Answer 1

ich es geschafft, jetzt eine Arbeits Schaltfläche erstellen ... ich diesen Code verwendet:

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

Ich habe ein Makro für das ... Es ist vielleicht nicht die beste Lösung, aber es erfüllt die Aufgabe, die Sie gefragt haben.

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