Bilder aus ActiceX-Steuerelement komprimieren
09.11.2018 15:16:50
Sebastian
habe folgendes Anliegen und konnte bis dato keine Lösung finden. Mittlerweile glaube ich, dass dieses Problem über Excel auch nicht in den Griff zu bekommen ist, aber vielleicht habe ich ja etwas übersehen.
Ich füge über einen Buttom eine JPG-Grafik in ein dafür vorgesehenes ActiveX-Steuerelement. Funktioniert alles wunderbar, außer dass bei größen Grafiken das Programm schnell verlangsamt und sogar die Bilder um 90° dreht.
Leider habe ich keine Möglichkeit gefunden, Bilder automatisch zu verkleinern auf eine bestimmte Auflösung.
Wenn ich folgendes anwende, ändert sich zwar die Bildgröße auf dem Bildschirm, aber die Dateigrö _ ße meiner Excelmappe bleibt unverändert, und daher auch die langsame Verarbeitung.
Private Sub Image1_Click()
Dim fd As FileDialog
Dim Pfad As String
Dim chosenFile As String
Pfad = "C:\Daten\"
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.InitialFileName = Pfad
.Filters.Add "Bilddateien", "*.jpg"
If .Show = -1 Then
chosenFile = .SelectedItems(1)
With Me.Image1
.PictureSizeMode = fmPictureSizeModeZoom
.Width = 150
.Height = 220
.Picture = LoadPicture(chosenFile)
End With
End If
End With
End Sub
Ich persönlich muss zugeben, dass ich fast keinen blassen Schimmer von Excel habe, und alles für mein Projekt aus diesem Forum zusammengesucht habe. Mit der Excel Bild Kompriemiern Funktion hat es auch nicht geklappt. Ich denke, dass hierbei Bilder in Steuerelementen nicht mit komprimiert werden.
Grüße und Danke an alle die sich Gedanken machen!
Sebi