ich verwende folgenden Code um eine Grafik in Excel einzufügen.
Funktioniert bis zu dem Punkt wo ich diese Grafik als bmp speichern möchte. was ist am Code falsch?
Private Sub CommandButton1_Click()
Dim bildName As String
Dim bildPfad As String
Dim pfad As String
Dim name As String
bildPfad = "\\Server\Kundenzeichnungen\"
bildName = Worksheets("Tabelle1").[A25] & ".tif"
pfad = "C:\Dokumente und Einstellungen\\Eigene Dateien\"
name = Worksheets("Tabelle1").[A25] & ".bmp"
Worksheets("Tabelle1").Range("E3").Select
ActiveSheet.Pictures.Insert (bildPfad & bildName) '.Select
Set myDocument = Worksheets("Tabelle1")
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, _
msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture
s.ScaleHeight 0.51, True
s.ScaleWidth 0.51, True
End Select
Next
With s
.SaveAs (pfad & name)
End With
Image1.Picture = LoadPicture(pfad & name)
End Sub
Gruß otto