Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild und Grafik löschen

Bild und Grafik löschen
Frank
Hallo,
gibt es eine Möglichkeit in Excel 2007 in einen VBA- Makro ein Bild oder Grafik zu löschen.
Es handelt sich um das Firmenlogo, welches ich aus aus Speichergründen immer bei der Dateiablage gelöscht habe.
In 2003 klappte es mit.
ActiveSheet.Shapes("Picture 15").Select
Selection.Delete
oder
'ActiveSheet.Shapes("Bild 1").Select
'Selection.Cut
Das Makro in 2007 bleibt hier hängen, es erkennt die Grafik nicht.
Kann mir jemand eine Tipp geben.
Danke, Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bild und Grafik löschen
15.07.2009 16:29:41
Hajo_Zi
Hallo Frank,
hast Du schon nachgeschut welchen Namen das Bild hat, wird bei Auswahl in der Bearbeitungsleiste Links angezeigt.
Excel ist ein vielseitiges Programm und man kann viele Probleme damit lösen. Jede positive Seite hat aber auch negative Aspekte - einer davon ist im Makrorecorder enthalten.
Die Bücher, die es zu Excel VBA gibt, erklären viele Funktionen, aber ich habe bisher nur in einem gelesen, dass der vom Makrorecorder aufgezeichnete Code bereinigt werden sollte.
Der Makrorecorder zeichnet alle Aktionen auf, u. a. auch das Auswählen einer Zelle oder eines eingebetteten Objektes (Bild, Diagramm, Zeichnungsobjekt usw.) dabei wird generell Select und Activate aufgezeichnet. Diese Befehle sind in VBA zu 99,9% nicht notwendig. Sie lassen den Bildschirm flackern und senken die Geschwindigkeit bei der Ausführung des Codes. Man sollte also schon von Beginn an bei der Programmierung darauf achten, solche Befehle zu vermeiden. Meine Erfahrung mit dem Vorsatz: Das mache ich später ist, man schreibt das Programm später meist komplett neu. Also kostest es nicht nur Rechnerzeit sondern auch Deine Zeit und ist Dir Deine Zeit so wenig Wert?
Zum Vergleich mit und ohne Select schau Dir auch mal diese Beispielarbeitsmappe an: mit und ohne select Auf meiner Homepage sind alle meine Beispiele ohne Select. Da kann man sich also einige Lösungsansätze zu diesem Thema ansehen.

Anzeige
AW: Bild und Grafik löschen
15.07.2009 18:07:22
Frank
Hallo Hajo,
Danke für Deine Antwort.
Der Unterschied ist schon gewaltig.
Wenn ich meine Makros so anschaue, sind unentliche select enthalten.
Habe das Makro immer über die Auzfzeichnung vorgenommen und etwas verfeinert, wie Variable und so.
Welche alternativen hat man denn für "Sheets("Start").Select" oder eben "ActiveSheet.Shapes("Picture 15").Select".
Jedenflas wollte ich meine Grafik löschen und das geht nicht.
Kennt jemand eine Möglichkeit ?
Danke
Gruss, Frank
AW: Bild und Grafik löschen
15.07.2009 18:12:12
Hajo_Zi
Hallo Frank,
zu beiden Fällen hast Du nicht geschrieben was Du machen willst. Bei 2 könnte ich vermuten
ActiveSheet.Shapes("Picture 15").Delete
Der Bildname ist also korrekt, da habe ich dann auch keinen Ansatz, das könnte vielleicht auch daran liegen das ich Deine Datei nicht sehe.
Gruß Hajo
Anzeige
AW: Bild und Grafik löschen
15.07.2009 18:33:55
Frank
Hallo Hajo,
mein Problem ist, das 2007 eben dieses Bild "Picture 15"(Bildbezeichnung laut Aufzeichnug in 2003)
nicht findet,.
Workbooks.Open Filename:="H:\Technik\Offerten\Offerte.xlsm"
Windows("ANGEBOT1.xlsm").Activate
Sheets("Bl.2").Copy After:=Workbooks("Offerte.xlsm").Sheets(1)
bis hier läuft alles,
das Makro bleibt bein dieser Zeile hängen
ActiveSheet.Shapes("Picture 15").Select
Selection.Delete
und genau dieses Bild( Firmenlogo) will ich löschen.
Danke
Gruss Frank
AW: Bild und Grafik löschen
15.07.2009 18:36:38
Hajo_Zi
Hallo Frank,
kann es sein das das Bild in Version 2003 einen anderen Namen hat?
Gruß Hajo
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige