Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

grafik bei Ereignis einfügen?

grafik bei Ereignis einfügen?
01.07.2005 15: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
Anzeige
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
Anzeige
AW: grafik bei Ereignis einfügen?
04.07.2005 10:33:38
Katherina
Danke!
Das hat gut geklappt!!!
Jetzt bin ich glücklich ;-))

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige