Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm / Bild in eine Zelle einfuegen?

Diagramm / Bild in eine Zelle einfuegen?
08.06.2005 22:49:52
Kaschni
Guten Tag zusammen,
kann man ein Bild/Objekt eigentlich in eine Zelle fest einfuegen?
Wenn nicht gibt es eine Moeglichkeit in einer If-Formel den Pfad zu einer Grafik anzugeben?
Der Hintergrund ist der, dass ich in einer bestimmten Zelle, je nach dem was der User an 2 drop-down-windows auswaehlt, ein bestimmtes Diagramm anzeigen lassen will.
Vielen Dank & freundliche Gruesse
Kaschni

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm / Bild in eine Zelle einfuegen?
08.06.2005 23:07:17
Jörg
Hallo Kaschni,
Hajo hat verschiedene Beispiele hierzu auf seiner VBA Seite
http://home.media-n.de/ziplies/vba.htm
Gruß Jörg
AW: Diagramm / Bild in eine Zelle einfuegen?
08.06.2005 23:33:38
Kaschni
Danke,
werde ich gleich mal ausprobieren
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 00:04:39
Kaschni
Hi Joerg,
habe mal die 3 Bilder beispiele ausprobiert. Fuer mich waere das erste interesant aber da kommt immer der Run-Time-Error'52' = Eingabefehler. Ist doch richtig, dass man den Bildnamen ohne Bildtyp in A9 angibt oder ist da noch etwas zu beachten. (Vielleicht da ich eine englische Version nutze?)
Gruss Simon
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 03:55:25
Jörg
Hallo Simon,
Hajo hat einen speziellen Speicherort auf Festplatte D:\ für seine Bilder gewählt, es wird daran liegen, daß Du diesen Ordner nicht erstellt hast. Baue also Hajos Dateisystem nach, oder mache es so wie ich.
Ich bin folgendermaßen vorgegangen, um das Beispiel zum Laufen zu kriegen:
lege in C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\
einen Ordner mit dem Namen 0001-1000 an.
Fülle diesen mit JPG´s Dateinamen 00001.jpg , 00002.jpg usw.
Ändere im Programm die Pfade auf
StBild = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\0001-1000\" & Format(Target.Value, "00000") & ".jpg"
und weiter unten
StBild = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\0001-1000\00002.Jpg"
oder wie die Pfade bei dir eben heissen mögen, wichtig ist, daß der Ordner gefunden wird.
Stelle sicher, daß auf jeden Fall ein Bild 00002.jpg vorhanden ist, dieses wird als Standard eingefügt, falls die gewünschte Bildnummer nicht gefunden wird.
In der Tabelle wird dann in A9 einfach 1 oder 2 oder 3 oder... eingegeben.
Gruß Jörg
Anzeige
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 16:47:44
Kaschni
Danke,
denke mal wird klappen!
Wie kann ich das Makro automatisieren?
Da ich ja mit einer If-Formel auf das Eingabefeld zugreife und somit kein Enter gedrueckt wird.
Vielen Dank noch mal!
Gruss Kaschni
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 17:46:06
Jörg
Hallo Kaschni
das Makro wird ausgelöst durch Eingaben in die Tabelle
If Target.Address "$A$9" Then Exit Sub
'bedeutet verlasse das Makro, wenn die Eingabezelle nicht A9 ist.
Diese Zeile kannst Du in die Adresse deiner Eingabezelle ändern.
Ändere dann aber noch folgende Zeile
StBild = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\0001-1000\" & Format(Target.Value, "00000") & ".jpg"
in
StBild = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\0001-1000\" & Format(Range("A9").Value, "00000") & ".jpg"
da das Programm die Bildnummer ja nicht mehr aus der Eingabezelle holen soll, sondern aus der Zelle mit deiner IF-Formel (im Beispiel Zelle A9).
Gruß Jörg
Anzeige
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 18:25:21
Kaschni
Hallo Joerg,
das loest leider noch nicht mein Problem.
Ich wuerde gerne es so haben, dass das Bild sich automatisch aendert sobald man in einer Drop-Down Liste etwas anderes auswaehlt.
Ich habe eine If-Formel die ueberprueft ob die 2 gewuenschten Werte in den Drop-Down-Listen ausgewaehlt sind und dann die Nummer des dazu gehoerenden Bildes ausgibt.
Und wenn nicht springt es in die naechste Zelle mit den naechsten 2 Werten und so weiter.
Damit habe ich realisiert, dass die richtige Bildnummer im Eingabefeld auftaucht. Dass Bild aendert sich aber erst nachdem ich in die Eingabezelle gehe und enter druecke.
Kann man das nicht so einrichten, dass ein automatischer Bildwechsel realisiert wird?
Gruss Simon
Anzeige
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 18:46:10
Jörg
Hallo Simon,
da bin ich im Moment überfragt, tut mir leid.
Gruß Jörg
AW: Diagramm / Bild in eine Zelle einfuegen?
09.06.2005 20:43:55
Kaschni
Hi,
trotzdem danke. Ich glaube ich werde es irgendwie jetzt schon hinkriegen.
gruss Kaschni

313 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
VBA: Bild an Zelle anhängen
Franz

Hallo Fachleute,
kann man ein Bild per VBA an eine bestimmte Zelle anhängen?
So kann ich ein Bild verschieben:
ActiveSheet.Shapes("Picture 3").IncrementLeft 50
ActiveSheet.Shapes("Picture 3").IncrementTop 50
Es soll aber bei Auftreten eines bestimmten Change-Ereignisses an d...
28.10.2008 11:53:00
Thread-ID: 1019873
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Fotogrösse an Zellen anpassen per Makro
Florian

Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss F...
25.02.2009 15:16:42
Thread-ID: 1053991
4 Beiträge
Userform automatisch an Bildschirmgröße anpassen
Krügner

Hallo,
könnt Ihr mir bitte noch einmal helfen. Ich bin blutiger VBA-Laie. Ich habe eine Userform kreiert. Sie soll auf verschiedenen Bildschirmen (17, 15, 19 Zoll) angewendet werden. Wie bekomme ich eine automatische Anpassung auf die verschiedenen Bildschirmgrößen und Auflösungen hin. Vers...
18.03.2009 09:02:15
Thread-ID: 1061275
4 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
2
3
3
8
3
3
8
2
2
4
3
6
11
9
7
7
5
3
3
1
3
4
7