beim öffnen einer excelmappe soll eine grafik automatisch und in der größe angepasst auf ein tabellenblatt eingefügt, bzw aktualisiert werden (…naja, insgesamt 9 grafiken auf 9 blättern) - die grafik ändert sich von zeit zu zeit, der name bleibt allerdings gleich und befindet sich im selben ordner, wie die arbeitsmappe.
ich weiß, dass es mit makros geht, allerdings habe ich davon keinen blassen schimmer, …zumindest klappt alles, was ich bisher im internet gefunden habe, nicht. =(
für eine idiotensichere lösung wäre ich recht dankbar!
beim öffnen einer excelmappe soll eine grafik automatisch und
in der größe angepasst auf ein tabellenblatt eingefügt, bzw
aktualisiert werden (…naja, insgesamt 9 grafiken auf 9
blättern) - die grafik ändert sich von zeit zu zeit, der name
bleibt allerdings gleich und befindet sich im selben ordner,
wie die arbeitsmappe.
Hallo Ram,
mal als Ansatz. Alt+F11, Doppelklick auf „DieseArbeitsmappe“, diesen Code einfügen:
Option Explicit
’
Private Sub Workbook_Open()
Call GrafikEinfügen
End Sub
Dann oben Einfügen—Modul, dort dann den nachstehenden Code reinkopieren.
Im Code dann die Konstanten Pfad und Gra anpassen.
Desweiteren ggfs. .Top, .Left usw.
Editor schließen.
Code wird automatisch bei jedem Öffnen der Mappe ausgeführt.
Oder in der Testphase mit Alt+F8 usw. in Excel.
Option Explicit
'
Sub GrafikEinfügen()
Dim wks As Worksheet, Bild As Object
Const Pfad As String = "C:\Dokumente und Einstellungen\All Users.WINDOWS\Dokumente\Eigene Bilder\Beispielbilder\"
Const Gra As String = "Winter.jpg"
For Each wks In Worksheets
For Each Bild In wks.Shapes
If Bild.Name = wks.Name & "Grafik" Then Bild.Delete
Next Bild
Set Bild = wks.Pictures.Insert(Pfad & Gra)
With Bild
.Name = wks.Name & "Grafik"
.Left = Range("B5").Left
.Top = Range("B5").Top
.Height = 50
.Width = 50
End With
Next wks
End Sub