Guten Abend,
ich habe eine Frage zu einem VBA-Projekt.
Ich habe in einer Excel Datei folgenden Code:
Private Sub image9_Click() 'Bild ZO
Dim varBild As Variant
Dim resetvar As Variant
varBild = Application.GetOpenFilename(Title:="Bildauswahl!")
If varBild = False Then
With Image9
.Picture = LoadPicture("")
.BackColor = &H8000000F
.PrintObject = False
.BorderStyle = fmBorderStyleSingle
End With
Exit Sub
Else
With Image9
.Picture = LoadPicture("")
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture(varBild)
.BackColor = RGB(255, 255, 255)
.PrintObject = True
.BorderStyle = fmBorderStyleNone
End With
End If
End Sub
WEnn ich hier nun ein Bild einfüge wird die Datei exorbitant groß.
Z.B. bei einem Bild, dass 2MB hat hat die Excel-Datei im Anschluss anstatt 0,2MB satte 5,8MB.
Wenn ich das BIld klassich als Grafik einfüge, passt die Dateigröße in etwa?
Ich finde hier keine Lösung und kann die Excel-Datei auch schlecht komplett umprogrammieren.
Vielleicht kann mir jemand ja helfen?
|