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.
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.
