Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

logo ersetzen mit vba

Forumthread: logo ersetzen mit vba

logo ersetzen mit vba
18.07.2007 21:35:35
jürg
Hallo Forum
ich habe wieder einmal ein anliegen.
In der Firma wurde das firmenlogo geändert.
wie das so ist hast es viele Dateien mit unterschiedlichen Tabellennamen.
Das Logo ist immer am gleichen ort. es wurde mit datei einfügen in das aktuelle datenblatt eingefügt.
Gibt es einen Code der das "alte" logo entfernt, dann das neue Logo einsetzt am gleichen ort?
vielen Dank zum voraus
mit Gruss
Jürg

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: logo ersetzen mit vba
19.07.2007 07:20:00
otto
Hi,
vielleicht so:

Private Sub Logoändern()
Set myDocument = Worksheets("dein Tabellenblatt")
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, _
msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture
s.Delete                      'löscht alle Grafiken im Tabellenblatt
End Select
Next
Dim bildName As String
Dim bildPfad As String
bildPfad = "\\Moeco-mtp\usr_dos\Kundenzeichnungen\"
bildName = "Logo" & ".tif"
Worksheets("dein Tabellenblatt").Range("A1").Select   'anstelle A1 deine Zelle angeben
ActiveSheet.Pictures.Insert (bildPfad & bildName)
End Sub


Gruß otto

Anzeige
AW: logo ersetzen mit vba
19.07.2007 10:56:16
ZekA
Wie mach ich das wenn ich das Logo von Tabelle 1 in Tabelle 2 haben möchte? Und wenn sich dass in Tabelle 1 ändert, dann soll sich das Logo in Tabelle 2 ändern.
Wär doch irgendwo besser, weil dann müsste man nicht immer den Pfad im Code ändern.

AW: logo ersetzen mit vba
20.07.2007 16:58:20
Jürg
Vielen Dank Otto
wie funktiioniert das bei 500 dateien bei welchen das Logo einmal ersetzt wird?
das privat sub muss ich doch bei jeder datei einbauen können?
mit gruss jürg
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige