Unter Office-97 war der Code Fehlerfrei
25.07.2004 16:22:20
marc
seit einer Woche versuche ich den unten stehenden Code an die Win.XP.Prof/Office-2003 Umgebung anzupassen.
Es klappt weder vorne noch hinten um es kurz zu sagen ich brauche Eure Hilfe.
marc.
Sub ExcelBereichTo_PPT()
Sheets("Dat_Info").Activate
Range("Druckbereich").Select
Selection.Copy
' verweis setzen ! Manuell ! ganz wichtig
Dim pp As New PowerPoint.Application
With pp
.Visible = True
.Presentations.Open Filename:="C:\ Vorlage\Werte.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("Dat.Aktuell").Activate
End Sub