Bild vergrößern
viwaldi
ich habe einen schönen Code von Beverly gefunden, um ein Bild in mein Bild-Steuerelement zu laden.
Das Bild hat immer dieselbe Größe, da es mithilfe eines Diagramms, dessen Abmessungen festgesetzt sind, erstellt wurde.
Das effektive Bild darin kann aber sehr klein werden.
Meine Idee ist es das Bild so zu vergrößern und die Eigenschaft "PictureAligment" des Steuerelementes auf "BottomLeft einzustellen", so dass sich quasi der überflüssige Teil des Bildes ausserhalb befindet.
Für die Skalierung würde ich gern Zellbezüge nutzen, in denen ich die Faktoren berechne.
Der bisherige Code lautet:
Private Sub CommandButton1_Click()
Dim chDiagramm As ChartObject
Dim shBild As Picture
Application.ScreenUpdating = False
Set shBild = Worksheets("Skizzen").Pictures("Picture1")
shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\temp\Bild.jpg", FilterName:="JPG"
End With
If Not Me.Image1.Picture Is Nothing Then
Image1.Picture = Nothing
End If
Image1.Picture = LoadPicture("C:\temp\Bild.jpg")
DoEvents
chDiagramm.delete
Kill "C:\temp\Bild.jpg"
Set chDiagramm = Nothing
Set shBild = Nothing
Application.ScreenUpdating = True
End Sub
MfG viwaldi