Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bild einfügen per makro

bild einfügen per makro
17.10.2004 14:02:17
@lex
Hallo
ich suche ein makro welches sich aus der aktivierten zelle den dateinamen holt
und diesen so zusammenfügt C:\“Dateiname“.jpg und mir dann das bild in meine tabelle
schön wäre wenn excel auf erneutes klicken oder halt bei klick auf nen anderen button das bild wieder entfernt
bin für hilfe dankbar
grüße

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

Betreff
Datum
Anwender
Anzeige
AW: bild einfügen per makro
Reinhard
Hi Alex,
entweder Makros BildRein und Bildraus auf 2 Schaltflächen, oder Makro BildWechsel auf eine Schaltfläche.
Gruß
Reinhard 

Sub BildRein()
Dim bild As Shape, vorh As Boolean
If Selection.Cells.Count > 1 Then Exit Sub
For Each bild In ActiveSheet.Shapes
If bild.Name = "MeinBild" Then vorh = True
Next bild
If vorh = False Then ActiveSheet.Pictures.Insert("C:\" & ActiveCell.Value).Name = "MeinBild"
ActiveSheet.Shapes("MeinBild").Visible = True
End Sub
Sub BildRaus()
Dim bild As Shape, vorh As Boolean
If Selection.Cells.Count > 1 Then Exit Sub
For Each bild In ActiveSheet.Shapes
If bild.Name = "MeinBild" Then vorh = True
Next bild
If vorh = False Then ActiveSheet.Pictures.Insert("C:\" & ActiveCell.Value).Name = "MeinBild"
ActiveSheet.Shapes("MeinBild").Visible = False
End Sub
Sub BildWechsel()
Dim bild As Shape, vorh As Boolean
If Selection.Cells.Count > 1 Then Exit Sub
For Each bild In ActiveSheet.Shapes
If bild.Name = "MeinBild" Then vorh = True
Next bild
If vorh = False Then ActiveSheet.Pictures.Insert("C:\" & ActiveCell.Value).Name = "MeinBild"
ActiveSheet.Shapes("MeinBild").Visible = Not ActiveSheet.Shapes("MeinBild").Visible
End Sub

Anzeige
AW: bild einfügen per makro
@lex
nabend!
ich wusste doch es war simpel!
ich hatte es ja fast genauso!
nur fand ich nirgendwo "ActiveCell.Text" das ".text" fehlte mir!
man kann ja net alles wissen!
habsch wieder was gelernt
vielen dank!
grüße aus rostock
freut mich wenns klappt.. o.T.
ransi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige