AW: grafik bei Ereignis einfügen?
01.07.2005 16:24:07
Peter
Servus,
so wie unten in etwa. Mit folgenden Einschränkungen:
- Die Größenzuordnung muss nicht stimmen, bezieht sich auf mein Tabellenblatt. Wens nicht stimmt, einfach per Makrorecorder aufzeichen, in dem du auf den Aufnahmebutton klickst und das Bild auf die Passende Größe ziehst und auf die passende Position.
- Der Speicherort der Bilder muss in dem selben Ordner sein wie die gespeicherte Excel Datei, sonst die Zeilen mit ThisWorkbook.Path ändern in den Pfad wo die Bilder liegen.
- Code einfügen mit Alt+F11, auf das Tabellenblatt doppelklicken wo das Ereignis ausgelösst werden soll, Code einfügen
- Weiteres Problem dürfte sein, das wenn du die Zelle änderst einfach ein weiteres Bild über deinem Alten eingefügt wird. Wenn das ein Problem sein sollte nochmal melden, dann muss der Code nochmal ergänzt werden.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 And Target.Row <> 1 Then Exit Sub
If IsNumeric(Target) And Target.Value >= 0 Then
strpic = ThisWorkbook.Path & "\test1.jpg"
Else
strpic = ThisWorkbook.Path & "\test2.jpg"
End If
ActiveSheet.Pictures.Insert(strpic).Select
Selection.ShapeRange.ScaleHeight 0.05, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 66.75
End Sub
MfG Peter