Office: (Office 2013) Bildgröße per VBA an Userform anpassen

Hallo zusammen,

ich habe mir eine Userform aufgebaut, die ein Bild in der Größe 800x600 darstellen kann. Das funktioniert einwandfrei.

Ich arbeite normalerweise an einem externen Bildschirm und dafür hat die Userform genau die richtige Größe.

Wenn ich aber am Notebookbildschirm arbeite ist die Userform zu groß und nimmt dreiviertel des Bildschirms ein. Nun habe ich ein zweites, kleineres Userform erstellt, in dem die Bilder aber trotzdem weiter mit 800x 600px dargestellt und an den Rändern somit abgeschnitten werden.

Private Sub lblSmall_Click()
'schließt die ufPicView, ruft die Userform ufPicViewSmall auf und zeigt die jeweilige Aufnahme in der halben Größe an

ufPicView.Hide
Dim ret As String
ret = Dir(ActiveSheet.Range("Verzeichnis").Value & "*" & ActiveCell.Value & "*.jpg")
If ret "" Then
ufPicViewSmall.imgFrame.Picture = LoadPicture(ActiveSheet.Range("Verzeichnis").Value & ret)
ufPicViewSmall.imgFrame.Picture.Height = .Height / 2
ufPicViewSmall.imgFrame.Picture.Width = .Width / 2
ufPicViewSmall.lblTag.Caption = ActiveCell.Value
ufPicViewSmall.lblInfo.Caption = ActiveCell.Offset(0, -5).Value & " " & ActiveCell.Offset(0, -4).Value & " " & ActiveCell.Offset(0, -1).Value & " - " & ActiveCell.Offset(0, -6).Value & " " & ActiveCell.Offset(0, 4).Value & " " & ActiveCell.Offset(0, 1).Value
End If
'mit dem Befehl Modeless kann bei geöffneter Userform in der Exceltabelle weitergeabreitet werden.
ufPicViewSmall.Show vbModeless
ufPicViewSmall.Repaint
End Sub

Dazu habe ich die roten Zeilen eingefügt, bekomme aber eine Fehlermeldung. Habt Ihr eine Idee, wie es funktionieren könnte?

Vielen Dank im Voraus.

Uwe

:)

 

Hi Uwe,

und was ist, wenn du unter den Einstellungen des Images PictureSizeMode einfach auf Zoom stellst?

 

Hi Karin,

dann verzerrt es mir einige Bilder, da diese nicht immer in 800x600 vorliegen (die Information hatte ich vergessen).

Wenn es einen Befehl gibt, der zoomt und dabei das Seitenverhältnis beibehält, wäre mir auch geholfen.

Danke

 

Hi,

bei Zoom werden doch die Seiten nicht verzerrt - das ist bei Stretch der Fall.

 

So einfach :-) Danke.