Modify

Opened 16 years ago

Closed 16 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

Change History (2)

comment:1 in reply to: ↑ description Changed 16 years ago by anonymous

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 Changed 16 years ago by Valik

  • Resolution set to No Bug
  • Status changed from new to closed

Read WikiStart. This is not a support area.

Guidelines for posting comments:

  • You cannot re-open a ticket but you may still leave a comment if you have additional information to add.
  • In-depth discussions should take place on the forum.

For more information see the full version of the ticket guidelines here.

Add Comment

Author


E-mail address and user name can be saved in the Preferences.

 
Note: See TracTickets for help on using tickets.