Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild in zelle

Bild in zelle
10.11.2006 20:04:48
Sascha
Hallo liebe freunde
Habe fol Problem:
Bei markieren von b17 oder d17 sollte in b2 bild eingefügt werden (D:\Eigene Dateien\Eigene Bilder\123.jpg) und diese bild sollte bei markieren eine leere Zeile wieder verschiwienden bzw. wen über b18 oder d18 andere bild angefordet wird sollte diese erscheinen. gleichzeitig sollte in e8 wert aus f18 gespiegelt werden
Ist das möglich und wie
Danke in voraus
Gruß Sascha

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild in zelle
10.11.2006 20:44:13
Peter
Hallo Sascha,
so könnte es gehen:
'
' Bild als Kommentar speichern
'
' so gehts:
'
' 1. Kommentar einfügen
' 2. auf den Rand des Kommentars klicken
' 3. rechte Maustaste: Kommentar formatieren
' 4. Farben Linien auswählen
' 5. Farbe Fülleffekte auswählen
' 6. Grafik auswählen
' 7. Grafik einfügen
' 8. fertig
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Bild in zelle
10.11.2006 21:12:02
sascha
Danke Peter
Es funktioniert aber ich meine das mein problem nur mit VBA zu lösen ist( Bei markieren von zelle bild soll in b2)
Danke
Gruß Sascha
Anzeige
AW: Bild in zelle
10.11.2006 21:50:37
Peter
Hallo Sascha,
per Makro z. B. so (der Pfad, die Datei muss angepasst werden) :

Sub Einfügen()
Dim Breite As Variant
Range("E18").Select
ActiveSheet.Pictures.Insert( _
"C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\diverse Bilder\fly05.jpg" _
).Select
With Selection
Breite = Selection.Width
.Name = "Bild"
.Top = ActiveCell.Top + 2
.Left = ActiveCell.Left - (Breite + 2)
End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Bild in zelle
10.11.2006 22:15:19
sascha
Hallo
Folgende code ist das was ich suche

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Pictures("Bild 1").Visible = False
Me.Pictures("Bild 2").Visible = False
Me.Pictures("Bild 3").Visible = False
If Not Intersect(Target, [A1:C1]) Is Nothing Then
Select Case Target.Address(0, 0)
Case "A1"
Me.Pictures("Bild 1").Visible = True
Case "B1"
Me.Pictures("Bild 2").Visible = True
Case "C1"
Me.Pictures("Bild 3").Visible = True
Case Else
End Select
End If
End Sub

Nun frage: Warum folgendes nich funktioniert
If Not Intersect(Target, [A1:A3]) Is Nothing Then
Select Case Target.Address(0, 0)
Case "A1"
Me.Pictures("Bild 1").Visible = True
Case "A2"
Me.Pictures("Bild 2").Visible = True
Case "A3"
Me.Pictures("Bild 3").Visible = True
Danke für hilfe
Gruß
Sascha
Anzeige

309 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

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