Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit VBA Formen (shapes) kopieren (NICHT ALS BLD)

Mit VBA Formen (shapes) kopieren (NICHT ALS BLD)
21.11.2014 08:17:04
jeko
Guten Morgen liebes Forum,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA Formen (shapes) kopieren (NICHT ALS BLD)
21.11.2014 10:13:32
fcs
Hallo Jeko,
verwende zum Einfügen statt 
  Selection.PasteSpecial Paste:=xlValues
'folgende Zeile
ActiveSheet.Paste

Gruß
Franz

AW: Mit VBA Formen (shapes) kopieren (NICHT ALS BLD)
21.11.2014 10:15:54
Rudi
Hallo, 
If ComboBox1 = "Function" Then
With ActiveSheet
With .Shapes("Abgerundetes Rechteck 5")
.TextFrame.Characters.Text = TextBox1.Value
.Copy
End With
.Paste Range("J16")
.Shapes("Abgerundetes Rechteck 5").TextFrame.Characters.Text = ""
End With
Unload Me
Else

Gruß
Rudi

AW: Mit VBA Formen (shapes) kopieren (NICHT ALS BLD)
21.11.2014 10:41:55
jeko
Vielen Dank, ihr habt mir sehr geholfen.
Ich habe es jetzt einfach durch ActiveSheet.Paste ersetzt.
Anzeige

302 Forumthreads zu ähnlichen Themen

For each shape in Selection
Atikar

Hallo Leute,
ich würde gerne alle Namen der ausgewählten Shapes auslesen, leider bekomm ich das nicht hin, und im Archiv hab ich auch nichts gefunden.
Sollte so ähnlich aussehen:
For Each sShape in Selection
msgbox sShape.name
next sShape
leider funktioniert das nicht
25.09.2008 10:28:00
Thread-ID: 1012252
3 Beiträge
Anzeige
Bild in Userform einfügen
Karl-Heinz

Guten Tag liebe Forumsteilnehmer,
als Anfänger habe ich mir zur Anzeige von Bildern in einer Userform ein Makro gebastelt. Es funktioniert auch. Nur folgende Erweiterungen gelingen mir nicht:
1.) Der letzte Ordnername (hier im Beispiel "8008") unter verz soll nicht fest sondern variabel...
25.09.2013 14:02:04
Thread-ID: 1332185
7 Beiträge
Bild in Userform einfügen - Laufzeitfehler 481
Steffen

Guten Tag,
ich habe folgendes Problem mit meiner Userform. In diese soll ein Chart von dem "Startblatt" Sheet eingefügt werden.
Dieses hat mit dem folgenden Code ein paar mal geklappt aber nun funktioniert es nicht mehr. Es kommt ständig der Laufzeitfehler 481 - Ungültiges Bild.
Ich...
26.02.2014 17:12:43
Thread-ID: 1351329
6 Beiträge
Anzeige
ActiveSheet.Shapes ... in VBA vermeiden?
Sonnenpeter
Hallo zusammen,
komme mal wieder nicht weiter.
Wie kann ich ActiveSheet.Shapes... vermeiden???
ActiveSheet.Shapes("Laufschrift").TextFrame.Characters.Text = "Hallo"
Gruß / Sonnenpeter
16.01.2005 21:50:51
Thread-ID: 548553
3 Beiträge
VBA Excel: For Each Next, Tabelle auslesen usw.??
Andi

!!! SOS !!!
Hallo zusammen,
ich scheitere so ein bisschen am Setzen der richtigen Parameter bei einer For-Each-Next-Schleife. Ich möchte Folgendes tun:
Ich habe eine Quelldatei mit einer Liste von 20 Namen (xls oder txt empfohlen?).
Ich habe eine Haupt-Excel-Mappe, in der ich 20 T...
08.02.2005 16:11:50
Thread-ID: 563935
8 Beiträge
VBA: shapes("Text Box 11") ohne select ?
Klaus

Hallo VBA-ler,
ich versuche gerade, das letzte Select aus meinem Code zu entfernen.
Dies:
With Sheets("Auswertung")
[...]
.Shapes("Text Box 11").Select
Selection.Characters.Text = Range("d5")
[...]
End With
funktioniert, gefällt mir aber nicht. Andererseits b...
14.12.2005 07:43:15
Thread-ID: 708526
3 Beiträge
Optimierung VBA-Code (For Each...)
Torsten

Hallo beisammen,
folgenden, funktionierenden Code möchte ich optimieren, weil ich 25 Sheets in den Array aufnehmen muß:
Dim ws
Dim Arr, i%
Dim ZE As Object
Arr = Array("B1", "B2", "B3", "B4", "B5", "B6")
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Unprote...
21.04.2006 16:52:13
Thread-ID: 757148
9 Beiträge
VBA überspringt For Each Schleife
Elias
Hallo zusammen,
Ich habe ein Problem mit folgendem Code:
Dim fso As Object, OFols As Object, fols As Object, fol As Object, fils As Object, fil As Object Set fso = CreateObject("scripting.FileSystemObject") Set OFols = fso.getfolder(PicPath) Set fols = OFols.subfolders For Each fol In fols...
27.09.2021 16:40:20
Thread-ID: 1849348
18 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
6
5
4
2
7
2
8
17
5
7
1
8
5
2
2
12
1
2
6
4
1
5
2