habe folgenden Script (ich gestehe, den hat mir eine Freundin geschrieben), der auch funktioniert:
Option Explicit ' Variablendefinition erforderlich
' Konstante für Ablagepfad Bilder
Const StPfad As String = "G:\Bilder\0001-1000\"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StBild As String ' Variable für Bildname
Dim InI As Integer ' Schleifenvariable
Dim objShape As Object
If Target.Address "$B$36" Then Exit Sub 'prüfen ob
' Bildnamen zusammensetzen
If Target.Value = "" Then Exit Sub ' kein Eingabe, Prozedur verlassen
StBild = StPfad & Format(Target.Value, "00000") & ".jpg" 'den Dateinamen übernehmen
Worksheets("Ausgabe").Activate 'Auf das Tabellenblatt Bild springen
Application.EnableEvents = False ' Reaktion auf Eingabe abschalten
Target.Offset(0, 1) = "" ' Zelle neben Eingabefeld leeren
For Each objShape In ActiveSheet.Shapes
If objShape.Type = msoLinkedPicture Then objShape.Delete
Next
With ActiveSheet.Shapes.AddPicture(StBild, True, True, Target.Offset(0, 1).Left, _
Target.Offset(0, 0).Top, 450, 300) 'die letzten beiden Werte sind Breite und Höhe _
_
_
_
der Bilder
End With
Application.EnableEvents = True ' Reaktion auf Eingabe einschalten
End Sub
Private Sub ListBox1_Click()
End Sub
Ich schaffe es aber nicht diese Grafik auf eine bestimmte Position zu bringen. Also, die Grafik soll halt ab einer bestimmten Zelle auftauchen. Welcher Script-Eintrag fehtl da? Leider schafft meine Freundin das nicht.
Zudem ist es möglich die Grafik in den Hintergrund zu setzen? D.h. das z.B. Textfelder die Grafik überdecken?
Danke im Voraus und Gruß
Harald