Office: Überprüfung ob Bild vorhanden

Guten Tag Forum,

am Samstag nötige ich Euch wieder mit einer Frage:

Die Excel-Datei hat eine Routine mit Workbook_Open().
In dieser ist festgelegt, dass beim Öffnen der Datei ein Bild eingefügt wird.

Sub runHeader(ByRef ws As Worksheet)

Code:

So weit so gut. Das Bild wird bei mir eingefügt.
Blöderweise bei jedem Dateistart *upps.

Wie kann ich abfragen ob besagtes Bild bereits vorhanden ist.
Und wenn ja, die Routine aussetzen?

Beste Grüße

:)

 

Du solltest dem Bild einen eindeutigen Namen geben. Den kannst Du dann prüfen, in einer Schleife.

 

Hallo Hajo,

Danke für die Antwort.

Eindeutiger Name im Sinne von Dateiname? Die .jpg Datei hat bei mir natürlich eine eindeutige Bezeichnung (Sagen wir mal Logo.jpg)

Oder meinst Du eine Bezeichnung im Sinne einer Zuweisung einer Variable oder über Set-Methode?

 

Habe mal etwas versucht...

Code:

 

ich muss was in Deinen Code überlesen haben. Ich habe nicht .Name gesehen, also bekommt das Bild einen automatischen Namen von Excel, wie Du nach dem suchen willst ist mir nicht klar. Aber Du hast ja festgestellt das das eingefügte Bild einen eindeutigen Namen hast. Dann such nach dem.

Ich bin dann raus, da ich was überlesen habe.

 

HAllo,

Gib dem Bild einen Namen.
So kannst du prüfen ob es das Bild schon gibt:

Option Explicit

Sub runHeader(ByRef ws As Worksheet)
On Error Resume Next
With ws
If .Shapes("eingefuegtesBild") Is Nothing Then
With .Pictures.Insert("C:\Pfad\test.jpg")
.Name = "eingefuegtesBild"
With .ShapeRange
.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
.IncrementLeft 350
.IncrementTop 20
End With
End With
End If
End With
On Error GoTo 0
End Sub


ransi

 

Danke Ihr beiden.

Ich hatte die .Name Eigenschaft im .ShapeRange Objekt.
Hat auch funktioniert, gebe aber gerne zu, dass Eure Lösung die elegantere ist.

@Hajo, .Name habe ich erst nach Deinem ersten Post verwenden. Du hast mir also sehr geholfen.

 

Die folgenden Vorschläge habe ich wie empfohlen umgesetzt.
Es klappt auch hervorragend ... zumindest in Tabelle 1

Im Anhang habe ich die Dummydatei angehängt.

"For Each ws in Worksheets" sollte doch den Code durch die Tabellenblätter schleifen und die Sub RunHeader(ws) in jedem Tabellenblatt aufrufen.

Übersehe ich etwas?


Beste Grüße *Smilie und vielen Dank für jegliche Hilfe

 

Hallo,

JA...*cool.gif*

Code:

Gruß, Muller

 

Besten Dank für die Antwort und natürlich für die Lösung.
Positive Bewertung folgt.

Code:

Zwei kurze, sicher triviale, Fragen bleiben mir noch...

1. In der ProtectSheets führst du probjWorksheet auf, darf das auch einfach ws As Worksheet bleiben? Das Ziel dürfte für .Protect , Call RunHeader und .Unprotect dürfte ja immer das selbe Worksheet (ws) sein?!

2. Beim Aufruf Call .Protect, warum wird das Call benötigt?


Danke und Grüße

 

Ein Call mußt Du dir so vor stellen.

Du bekommst den Auftrag, über die BAB-7 von Norddeutschland nach Süddeutschland zu fahren. Jetzt kommt der CALL: in Hamburg bekommst Du den Auftrag, nicht leer runter zu fahren, sondern im Containerhafen einen Container aufzunehmen. Danach gehtst Du zu Deinem Grundauftrag zurück und arbeitest ihn ab. Also fährst Du über die BAB-7 nach Süddeutschland.
.
Mit einem Call rufst Du etwas anderes auf und wenn dieses "andere" abgearbeiet ist, kommt der Sprung zurück zu dem Punkt, wo der Call aufgerufen wurde. In der Regel in der nächsten Zeile.

 

Schön erklärt, sodass auch ich es als Laie verstanden habe.
Aber....mal auf´s Datum der Frage geachtet?
*mrcool

Guten Rutsch!