PDA

Vollständige Version anzeigen : JPG in Userform


M.Porter
27.02.2008, 16:40
Hallo,

versuche gerade ein jpg-Bild in einem Userform darzustellen. Problem ist, dass die Grafik viel zu viel Platz einnimmt und wenn ich sie verkleinern wird nur noch ein Teil der Grafik angezeigt...auch ist sie sehr pixelig. Wie kann die Grafik nach mein Bedürfnissen anpassen?

vielen Dank!

Gruß
Jan

jinx
27.02.2008, 17:09
<font size="2" face="Century Gothic">Moin, Jan,

entweder in einem Grafikprogramm bearbeiten und auf die richtige Größe zuschneiden oder aber per VBA auf die Crop-Eigenschaften zugreifen:

percentToCrop = InputBox("Um wieviel Prozent möchten Sie das Bild an der linken Seite zuschneiden?")
Set zuzuschneidendeForm = ActiveWindow.Selection.ShapeRange(1)
With zuzuschneidendeForm.Duplicate
.ScaleWidth 1, True
origWidth = .Width
.Delete
End With
cropPoints = origWidth * percentToCrop / 100
zuzuschneidendeForm.PictureFormat.CropLeft = cropPoints</font>

Oc3an.de
28.02.2008, 09:10
Oder einfach in VBA in die Eigenschaften des Images gehen udn Strech auf True stellen... !?!?!?