grafik bei Ereignis einfügen?

Forumthread: grafik bei Ereignis einfügen?

01.07.2005 17:12:59

Katherina

Hallo!
Vielleicht kann mir jemand helfen:
ich möcht in Excel bei bestimmten Ereignissen zugeordnete Grafiken einfügen
z.B. Wenn in A1 positive Zahlen stehen soll daneben die Grafik test1.jpg erscheinen.
Wenn in A1 negative Zahlen stehen soll daneben die Grafik test2.jpg erscheinen.
Schon mal vielen Dank für eure Hilfe!!!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: grafik bei Ereignis einfügen?

01.07.2005 18:24:07

Peter
AW: grafik bei Ereignis einfügen?

04.07.2005 12:33:38

Katherina

AW: grafik bei Ereignis einfügen?

01.07.2005 18: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

AW: grafik bei Ereignis einfügen?

04.07.2005 12:33:38

Katherina

Danke!
Das hat gut geklappt!!!
Jetzt bin ich glücklich ;-))

Forumthread: grafik bei Ereignis einfügen?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread