AW: userform grafik
23.07.2017 03:34:22
stef26
noch was gefunden, auch das geht irgendwie nicht..
Private Sub CommandButton1_Click()
Dim chDiagramm As ChartObject
Dim picBild As Picture
Application.ScreenUpdating = False
Range("A1:D15").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set picBild = ActiveSheet.Pictures.Paste
picBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, picBild.Width, picBild.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\Test\Bild.jpg", FilterName:="JPG" ' andere Grafikformate sind möglich
End With
If Not Me.Picture.Picture Is Nothing Then
Image1.Picture = Nothing
End If
Image1.Picture = LoadPicture("C:\Test\Bild.jpg")
DoEvents
chDiagramm.Delete
Kill "C:\Test\Bild.jpg"
picBild.Delete
Set chDiagramm = Nothing
Set picBild = Nothing
Application.ScreenUpdating = True
End Sub