Bild in zelle

Forumthread: 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

AW: Bild in zelle

10.11.2006 20:44:13

Peter
AW: Bild in zelle

10.11.2006 21:12:02

sascha
AW: Bild in zelle

10.11.2006 21:50:37

Peter
AW: Bild in zelle

10.11.2006 22:15:19

sascha

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Bild in zelle

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread