title image


Smiley Re: Grafiken/Shapes als Bild speichern ?
Hi,



ein kleines Beispielmakro:



' **********************************************************************' Modul: Modul3 Typ: Allgemeines Modul' **********************************************************************Option ExplicitSub Exportieren()    Dim myChart As Chart, myChartObject As ChartObject, myShape As Shape    Application.ScreenUpdating = False    Set myChart = Charts.Add    For Each myShape In Worksheets("Tabelle1").Shapes        If myShape.Type = msoAutoShape Then            myShape.CopyPicture Appearance:=2, Format:=-4147            Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, _                myShape.Width, myShape.Height)            With myChartObject                With .Chart                    .Paste                    .Export Filename:=ActiveWorkbook.Path & "\Tets.gif", _                        FilterName:="GIF", Interactive:=False                End With                .Delete            End With        End If    Next    Application.DisplayAlerts = False    myChart.Delete    Application.DisplayAlerts = True    Set myChart = Nothing    Set myChartObject = Nothing    Set myShape = Nothing    Application.ScreenUpdating = TrueEnd Sub
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: