habe ein Problem ganz anderer Art.
Kennt jemand eine Möglichkeit, ein Bild, das in eine Exceltabelle einkopiert wurde, wieder als ein eigenständiges Bild im JPG oder BMP o.ä. Format zu speichern?
Für jeden Tipp bin ich sehr dankbar
Gruß
Manasse
Sub Diagramm_exportieren()
On Error GoTo errorhandler
Dateiname = Application.GetSaveAsFilename(filefilter:="Jpg Files (*.jpg), *.jpg,Gif Files (*.gif), *.gif")
ActiveChart.Export Filename:=Dateiname
errorhandler:
End Sub
Sub ...
ActiveChart.Export Dateiname, Right$(Dateinname, 3)
End
Sub
Sub Diagramm_exportieren()
On Error GoTo errorhandler
Dateiname = Application.GetSaveAsFilename(filefilter:="Jpg Files (*.jpg), *.jpg,Gif Files (*.gif), *.gif")
ActiveChart.Export Filename:=Dateiname
ActiveChart.Export Dateiname, Right$(Dateinname, 3)
errorhandler:
End Sub
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:=ActiveWorkbook.Path & "\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