Bild in Excel beim öffnen laden

[Uriel]

Hallo zusammen,

bin zwar kein wirklicher Neuling in VBA, habe aber seit viereinhalb Jahren nichts mehr dergleichen gemacht und bin was (seeeehr) eingerostet…

Ich würde gerne innerhalb eines Dokuments während dem Öffnen ein Bild laden, dass dann da (an einer bestimmten Stelle) angezeigt wird.
Vorher wird das Excel doc schon per Java mit Daten beschossen und ich muss nur noch das Bild (und noch nen paar Features, von denen ich weiß, wie sie gehen) beim Laden des Dokuments reinhauen…
Mein Prob ist, dass ich keinen Plan mehr davon habe…

Und außerdem muss es unbedingt vor dem Öffnen des Dokuments sein…

Kann mir da einer weiter helfen…?

Gruß Micha

[Reinhard_fb8cb7]

Ich würde gerne innerhalb eines Dokuments während dem Öffnen
ein Bild laden, dass dann da (an einer bestimmten Stelle)
angezeigt wird.

Hi Micha,

in „DieseArbeitsmappe“

Private Sub Workbook_Open()
Call BildEinfuegen
End Sub

in „Modul1“

Option Explicit
'
Sub BildEinfuegen()
Dim ws As Worksheet, Pfad As String, B
Pfad = "C:\Dokumente und Einstellungen\admin\Eigene Dateien\Eigene Bilder"
Set ws = Worksheets("Tabelle1")
With ws
 For Each B In .Shapes
 If B.Name Like "MeinBild\*" Then B.Delete
 Next B
 .Pictures.Insert(Pfad & "\03 Cherries.bmp").Name = "MeinBild1"
 With .Shapes("MeinBild1")
 .Top = 156
 .Left = 300
 '.height= ...
 '.width= ...
 End With
End With
End Sub

Gruß
Reinhard