habe ein Bild das sich in einer Exceldatei befindet und welches ich gerne
unter "Eigene Bilder" speichern möchte.
Habe aber keine Ahnung wie ich das Bild aus dieser Datei heraus bekomme.
Bitte um Hilfe
Gruß
Dave
Sub Bild_erstellen()
Dim myChart As Chart, myChartObject As ChartObject
Dim int_with As Integer, int_hight As Integer
Application.ScreenUpdating = False
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
int_with = Selection.Width - Selection.Width / 100 * 8
int_hight = Selection.Height - Selection.Height / 100 * 8
Set myChart = Charts.Add
Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, int_with, int_hight)
With myChartObject.Chart
.Paste
.Export Filename:="c:\zwischenablage.jpg", FilterName:="JPG", Interactive:=False
End With
Application.DisplayAlerts = False
myChart.Delete
Application.DisplayAlerts = True
Set myChart = Nothing
Set myChartObject = Nothing
Application.ScreenUpdating = True
End Sub
gruß Chris
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen