unter Office XP u. 2003 ohne Funktion
17.07.2004 19:22:14
marc
ich habe in einer Mappe zwei Tabellen.Tabelle2 (DatenBank),Tabelle1 besteht aus einem Diagramm eine
Tabelle mit Werten und zwei TextBoxen.Unter Office 97 habe ich den gesamten Druckbereich kopiert und in PowerPointfolie (Vorlage) eingefuegt.
In Office XP bzw.2003 ist der Code unbrauchbar.
Wer kann mir helfen ?
marc.
Sub GoTo_PPT()
Sheets("Verursacher").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\Aktuell.ppt", ReadOnly:=msoFalse
.ActiveWindow.View.Paste
With .ActiveWindow.Selection.ShapeRange
.Left = 137.125
.Top = 110
.Width = 425.645
.Height = 320
End With
With .ActiveWindow.Selection.ShapeRange
.IncrementLeft -113.12
.IncrementTop -74#
End With
With .ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.65, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.48, msoFalse, msoScaleFromTopLeft
End With
End With
End Sub