Bereich Kopieren
06.02.2004 11:35:20
marc
mit meinem Code habe ich bis dato ein Bereich kopiert und in eine PowerPoint
Folie eingefuegt.
Nun gibt es Probleme mit Office-97 (wg Umstellung auf XP wird Office-97 nicht mehr unterstuetzt )und ich kann den Verweis im VBA-Editor
auf PowerPiont nicht setzen.
Hat vieleicht einer von euch 'ne funktionierende Alternatieve
so, dass es ohne Verweis auf PowerPoint moeglich ist den Bereich weiterhin
zu kopieren und in PP-Folie einfuegen.
marc :o) ...
Sub Bereich_To_PP()
Sheets("Grafik").Activate
Range("Druckbereich").Select
Selection.Copy
' verweis setzen ! Manuell
Dim pp As New PowerPoint.Application
With pp
.Visible = True
.Presentations.Open FileName:="C:\EMail Vorlage\GShow.ppt", ReadOnly:=msoFalse
.ActiveWindow.View.Paste
With .ActiveWindow.Selection.ShapeRange
.Left = 137.125
.Top = 110
.Width = 445.645
.Height = 320
End With
With .ActiveWindow.Selection.ShapeRange
.IncrementLeft -113.12
.IncrementTop -74#
End With
With .ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.48, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.48, msoFalse, msoScaleFromTopLeft
End With
End With
Application.CutCopyMode = False
Sheets("Grafik").Activate
End Sub