ich finde einfach keine Lösung und hoffe Ihr könnt mir helfen. Ich habe eine kleine Userform in der ich Formen auswählen und ein Text hinzufügen kann, nach Bestätigung der Eingabe wird das Grafikobjekt erstellt bzw. kopiert (die ich im gleichen Tabellenblatt hinterlegt habe).
Es funktioniert auch alles wunderbar, nur leider ist das "neu" erstellte Grafikobjekt eine _ Bilddatei und kein Grafikobjekt (bzw. Shape) mehr und ich kann den Text im nachhinein nicht mehr manuell ändern. Das allerdings wäre sehr wichtig. Ich wäre dankbar wenn ihr mir helfen könnten. Hier ein Ausschnitt meines codes....
If ComboBox1 = "Function" Then
ActiveSheet.Shapes("Abgerundetes Rechteck 5").TextFrame.Characters.Text = TextBox1.Value
ActiveSheet.Shapes("Abgerundetes Rechteck 5").Copy
Range("J16").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Shapes("Abgerundetes Rechteck 5").TextFrame.Characters.Text = ""
Unload Me
Else
Grüße
jeko