AW: Bild anzeigen wenn ich eine Zelle anklicke
16.12.2004 00:41:46
surfandre
bisher habe ich es so gemacht mit nem button:
Dim SeePic As Integer
Private Sub CommandButton1_Click()
a = ActiveCell.Row
If Len(Worksheets("Movies").Cells(a, 1)) <= 5 Then
file = Worksheets("Movies").Cells(a, 1)
Else
file = Left$(Worksheets("Movies").Cells(a, 1), 5) + Right$(Worksheets("Movies").Cells(a, 1), 5)
End If
If SeePic = 0 Then
On Error GoTo fehler
Image1.Picture = LoadPicture("C:\Dokumente und Einstellungen\Andre\Eigene Dateien\Andre\PRIVAT\Excel\PIC\Movies\" + file + ".jpg")
Image1.Visible = True
SeePic = 1
fehler:
On Error GoTo 0
Else
Image1.Visible = False
Image1.Picture = LoadPicture()
SeePic = 0
End If
End Sub
Private Sub CommandButton1_LostFocus()
Image1.Visible = False
Image1.Picture = LoadPicture()
SeePic = 0
End Sub
jetzt soll es aber automatisch gehen wenn die zelle angeklickt wird