AW: Grösse Listbox
16.07.2009 10:41:33
Matthias
Hallo Helmut,
schau doch mal bitte das Makro an, ich kann da nichts finden.
Danke
Private Sub ListBox1_Click()
Dim StBild As String ' Variable für Bildname
Dim InI As Integer ' Schleifenvariable
If ListBox1.Value = 0 Then Exit Sub ' kein Wert ausgewählt
Range("Wert") = ListBox1.ListIndex + 1 ' ListIndex in Zelle schreiben
' altes Bild löschen von jinx
For InI = ActiveSheet.Shapes.Count To 1 Step -1
If ActiveSheet.Shapes(InI).Name = "Bild" Then
ActiveSheet.Shapes(InI).Delete
Exit For
End If
Next
StBild = ThisWorkbook.Path & "\" & Worksheets("Bilder").Cells(ListBox1.ListIndex + 2, 2) & " _
.jpg"
If Dir(StBild) = "" Then ' Prüfen ob Bild vorhanden
Application.EnableEvents = False ' Reaktion auf Eingabe abschalten
Range("F7") = "kein Bild"
Application.EnableEvents = True ' Reaktion auf Eingabe einschalten
Exit Sub ' Prozedur verlassen
Else
Range("F7") = "" ' Zellinhalt löschen
End If
' Bildhöhe des eingefügeten Bildes ermitteln, erstellt von Nepumuk
Bildgroesse_auslesen StBild ' Bildgröße ermitteln
' einfügen ohne select von Bert Körn
' Ausdruck.AddPicture(FileName, Verknüpfung, in Mappe speichern,
' Pos. Links, Pos. Oben, Breite, Höhe)
' erstes Offset Pos. Links 0 Zeilen und eine Spalte nach rechts
' zweites Offset Pos. Oben 0 Zeilen tiefer und 0 Spalten nach rechts
ActiveSheet.Shapes.AddPicture(StBild, True, True, Range("g7").Left, _
Range("g7").Top, DoBreite * DoBildhöhe / DoHohe, DoBildhöhe).Name = "Bild"
End Sub