[PowerPoint] Diagrammdatenberich schützen
18.11.2015 10:06:40
Tobias
Ich habe eine PowerPoint Präsentation in der sich ein Blasendiagramm befindet. Diese bekommt seine Daten aus dem dahinterliegenden Daiagrammdatenbereich. Jetzt soll die Präsi aber an Kunden verschickt werden und ich würde gerne, dass diese keinen Zugriff auf die Daten haben, aber trotzdem das Diagramm noch voll animationsfähig bleibt.
Ich habe es schon mit sowas hier probiert:
Sub Export_to_Ppt()
Dim myChart As PowerPoint.Chart
Set myChart = ActivePresentation.Slides(1).Shapes("Diagramm 1").Chart
myChart.ChartArea.Copy
ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.PasteSpecial _
ppPasteEnhancedMetafile
End Sub
Aber leider wird dann nur eine Grafik eingefügt, die sich nur noch als ganze Grafik animieren läßt. Auch alle weiteren möglichen Parameter (ppPasteBitmap ppPasteDefault ppPasteEnhancedMetafile ppPasteHTML ppPasteGIF ppPasteJPG ppPasteMetafilePicture ppPastePNG ppPasteShape) bringen nicht das gewünschte Ergebnis. Hat vielleicht einer von euch einen Tip?