Hallo, dies ist kein direktes XPost. Ich glaube nur das ich im PPT Forum damit falsch war. Und zwar möchte ich gerne aus ACCESS heraus PowerPoint steuern.



Ich möchte z.B. ein PPT Dokument neu erstellen und eine Tabelle ablegen.



Leider bekomme ich mit meinem Code und dem Macrorecorder dies nicht hin. Der Code sollte in ACCESS Leigen da ich ihn später dynamisch anpassen möchte.



Hier mal mein Code:





Dim ppApp As PowerPoint.Application

Dim ppPres As PowerPoint.Presentation

Dim ppShape As PowerPoint.Shape

Dim ppCurrentSlide As PowerPoint.Slide



Set ppApp = CreateObject("PowerPoint.Application")

ppApp.Visible = True

Set ppPres = ppApp.Presentations.Add '(msoTrue)

'ppCurrentSlide.Selection.SlideRange.Shapes("Group 148").Select

ppPres.Slides.Range ("Group 148")

With ActiveWindow.Selection.ShapeRange

.IncrementLeft -100.25

.IncrementTop -96.38

End With

With ActiveWindow.Selection.ShapeRange

.ScaleWidth 1.43, msoFalse, msoScaleFromTopLeft

.ScaleHeight 1.58, msoFalse, msoScaleFromTopLeft

End With

ActiveWindow.Selection.ShapeRange.ScaleHeight 1.32, msoFalse, msoScaleFromTopLeft

ActiveWindow.Selection.SlideRange.Shapes("Group 152").Select

ActiveWindow.Selection.SlideRange.Shapes("Group 152").Select



Also ich bekomme es zum verrecken nicht hin. vieleciht hat ja jemand nen Tipp.

Wäre sehr dankbar dafür,







geschrieben von olli_d , 18.04.2006, 10:06 Uhr , 25 mal gelesen