Modify

Opened 17 years ago

Closed 17 years ago

#1061 closed Bug (No Bug)

PowerPoint 2007 presentation adding doesn't work on Vista

Reported by: Nad Owned by:
Milestone: Component: AutoIt
Version: 3.3.0.0 Severity: None
Keywords: Cc:

Description

I need to open PowerPoint 2007 and add new presentation and slide.

There is a code on AutoIt vers. 3.3.0.0
[code]
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Main()

Func Main()

Local $oPptApp = ObjCreate("PowerPoint.Application")
$oPptApp.Visible = True

; create presentation
Local $oPres = $oPptApp.Presentations.Add()
Local $oCurSlide = $oPres.Slides.Add(1,1)

sleep(2000)

$oPptApp.Quit

EndFunc
code

It works fine on w2k3 sysytem.

But it doesn't work Vista, error in output is:

"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "E:\WORK\VDI\PVC_VDI_NEW_LOAD\test.au3"

E:\WORK\VDI\PVC_VDI_NEW_LOAD\test.au3 (13) : ==> The requested action with this object has failed.:
Local $oPres = $oPptApp.Presentations.Add()
Local $oPres = $oPptApp.Presentations.Add() ERROR

Exit code: 1 Time: 0.813

I try to call Presentation.Add method with different parameters, but nothing helps.

Can you help me,
Thank you

Attachments (0)

Change History (2)

in reply to:  description comment:1 by anonymous, 17 years ago

I repost ticket description in this reply to more convinient way:

I need to open PowerPoint 2007 and add new presentation and slide.

There is a code on AutoIt vers. 3.3.0.0

#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Main()

Func Main()

Local $oPptApp = ObjCreate("PowerPoint.Application")
$oPptApp.Visible = True

; create presentation
Local $oPres = $oPptApp.Presentations.Add()
Local $oCurSlide = $oPres.Slides.Add(1,1)

sleep(2000)

$oPptApp.Quit

EndFunc


It works fine on w2k3 sysytem.

But it doesn't work Vista, error in output is:

"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "E:\WORK\VDI\PVC_VDI_NEW_LOAD\test.au3"    
 E:\WORK\VDI\PVC_VDI_NEW_LOAD\test.au3 (13) : ==> The requested action with this object has failed.:
Local $oPres = $oPptApp.Presentations.Add()
Local $oPres = $oPptApp.Presentations.Add()^ ERROR
Exit code: 1    Time: 0.813 

I try to call Presentation.Add method with different parameters, but nothing helps.

Can you help me,
Thank you

comment:2 by Valik, 17 years ago

Resolution: No Bug
Status: newclosed

Read WikiStart. This is not a support area.

Modify Ticket

Action
as closed The ticket will remain with no owner.

Add Comment


E-mail address and name can be saved in the Preferences .
 
Note: See TracTickets for help on using tickets.