Anzeige
Archiv - Navigation
1672to1676
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
Inhaltsverzeichnis

Bild in aktive Zelle einfügen

Bild in aktive Zelle einfügen
11.02.2019 10:33:36
nightcab
Guten Morgen Leute!
Ich möchte ein Bild in die/eine aktive Zelle einfügen. Soweit bin ich gekommen...

Sub Deskpin()
With Pictures.Insert("F:\Pics\DeskPin.png")
.Height = 15#
.Width = 15#
End With
End Sub
Wie muss ich das "ActiveCell.Select" einbauen damit es klappt?
Danke im Voraus!
Gruß nichtcab

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild in aktive Zelle einfügen
11.02.2019 10:44:51
nightcab
So, ich hab's...
Das wäre der funktionierende Code.

Sub Bild_einfügen()
Dim PicPath As String, Pic As Picture, ImageCell As Range
PicPath = "F:\Pics\DeskPin.png"
Set ImageCell = ActiveCell.MergeArea
Set Pic = ActiveSheet.Pictures.Insert(PicPath)
With Pic
.ShapeRange.LockAspectRatio = msoFalse
.Left = ImageCell.Left
.Top = ImageCell.Top
.Width = 15#
.Height = 15#
End With
End Sub

Anzeige

392 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige