Verhalten beim Einfügen von Bildern per Makro

Diskutiere Verhalten beim Einfügen von Bildern per Makro im Office Forum im Bereich Microsoft Community Fragen; Hallo zusammen, ich habe folgendes Makro: Sub InsertPics() Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With...
  • Verhalten beim Einfügen von Bildern per Makro Beitrag #1
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo zusammen,


ich habe folgendes Makro:


Sub InsertPics()

Dim Rw&, PFAD$, Datei$, Bild As Shape

PFAD = "C:\Users\….\"
With ActiveSheet
For Rw = 2 To 10000
Datei = .Range("C" & Rw) & ".bmp"
If Dir(PFAD & Datei) <> vbNullString Then
.Pictures.Insert (PFAD & Datei)
Set Bild = .Shapes(.Shapes.Count)
Bild.LockAspectRatio = msoFalse
Bild.Left = .Range("B" & Rw).Left
Bild.Top = .Range("B" & Rw).Top
Bild.Width = .Range("B" & Rw).Width
Bild.Height = .Range("B" & Rw).Height
End If
Next
End With
End Sub


Bilder werden abhängig von der Artikelnummer in die jeweilige Zelle eingefügt und die Größe angepasst.

Das Problem ist, dass die Bilder nur als Verknüpfung eingefügt werden und somit immer eine Verbindung zum Laufwerk bestehen muss.


Wie kann ich das Makro abändern, damit die Bilder in die Excel-Datei dauerhaft eingefügt werden?


Danke im Voraus.
 
Thema:

Verhalten beim Einfügen von Bildern per Makro

Verhalten beim Einfügen von Bildern per Makro - Ähnliche Themen

Excel Makro: Ich möchte nur die Zellen in "C" löschen die in "B" rot unterlegt sind. Die Spalte "D" soll nicht berücksichtigt werden. Wie kann ich das im...
Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?: Hallo liebe Forums-User! Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen...
[VBA] Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M...
Loop erstellen: Hallo Community, Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen...
Excel Makro: Hallo zusammen, ich würde gern in eine Excel Datei ein Makro einfügen, welches eine komplette Zeile in ein anderes Blatt verschiebt, sobald in...

Sucheingaben

how to beat the )casino

,

twin pine casino

,

quarter poker

,
quarter poJker
, wyandotte casino, wyandotte casqino, video poker slot machines, video pioker slot machines, new york casino, new york casmino, cartman pVoker face, smart live casino, smart live 9casino, full stack poker, poker hands chart, big casBino, big casino, carbon poker, carbon poLker, twin river casino, po2ker face meme, florida casinos, florida casineos, free poker sites, free Opoker sites
Oben