Image Control
25.04.2017 12:02:40
Rainer
Ich möchte über eine Schaltfläche eine Grafik in ein Image Control einfügen, das Tabellenblat _
als PDF abspeichern und danach das Image Control wieder leeren.
Private Sub CommandButton1_Click()
Dim Verzeichnis As String
Dim DateiName As String
Dim Us As String
Us = "Signatur.gif"
Verzeichnis = "C:\Benutzer\" & Range("F11") & "\Signatur\" & Us
ActiveSheet.Calculate
Set Ebene14.Shapes(Image1).Picture = LoadPicture(Verzeichnis)
CommandButton1.Visible = False
DateiName = "C:\Eigene Dateien\Protokoll\" & "_" & Range("G37")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
CommandButton1.Visible = True
ThisWorkbook.Worksheets("Ebene_14").Cells(40, 5).ClearContents
ThisWorkbook.Worksheets("Ebene_14").Cells(44, 5).ClearContents
ThisWorkbook.Worksheets("Ebene_14").Cells(3, 17).Select
Set Ebene14.Shapes(Image1).OLEFormat.Object.Object.Picture = LoadPicture("")
End Sub
Leider meckert er mir meinen Code an.
Was habe ich da falsch gemacht ?
Gruß
Rainer
Anzeige