Macro is not working on Access point

[#1]

Hi Everyone,

Please help me,

I am trying to fire macro from the access point but macro is not working , in the server(production) macro is running but when I am trying to fire from the access point macro is not firing. I have downloaded IE pulgins also but still it is not working.

In QVMC----->server ----> security---> I have tick the Allow unsafe macro for execution on server and Allow macro for execution on server but still macro is firing from the server.

Thanks in Advance.

Sher Bahadur.

[er_mohit]

make sure you try this

ctrl+shift+m

tick on radio button for give system access to module script

sorry to adjust in this reply

you have to enable the VBA component in MS-OFFICE.. regarding that..........

[#3]

Hi Er. Mohit

Yes, I had tick on the radio button and provide system access.

but not working on access point . Is there is any other option which I am missing because I am new in qlikview so please help me.

Thanks for reply Er. Mohit

[gainkarthi]

Please try enabling VBA component in MS-Office.

[#5]

Thanks for reply  Karthikeyan

I have enabled the VBA component but still it is not working on the server.

and also I have created a macro and I want to open a pop-up msgbox which print simple ("hello") and this is also not opening.

please help me .

[#6]

Hi  Er. Mohit

I have enabled the VBA component but still it is not working on the server.

[gainkarthi]

Do you have MS office in server?

[Anonymous]

Hi Sher

How the marco is being triggered? Is it based on events?

Regards

MultiView

[#9]

Yes, In server there is Ms Office.

Ok if we forget every things regarding ms office and all that.

now I am just created a macro and inside it I provide a message box to print hello, and this is also not coming.

[gainkarthi]

Use this macro and make sure you have CH01 and CH02 charts available in your report.

sub ppt

Dim myArray(1)

myArray(0) = "CH01" 'add chart or table reference in reverse order of slide

myArray(1) = "CH02"

Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True ' Create a presentation

Set PPPres = PPApp.Presentations.Add

For each item in myArray

Set PPSlide = PPPres.Slides.Add(1, 1)

ActiveDocument.GetSheetObject(item).CopyBitmapToClipboard

PPSlide.Shapes(1).Delete ' removes the title

PPSlide.Shapes(1).Delete ' removes the text box

PPSlide.Shapes.Paste

with PPSlide.Shapes(PPSlide.Shapes.Count)

.left = 10

.top = 80

.width=700

end with

Next

PPPres.SaveAs "D:\MyPresentation.ppt"

'PPPres.Close

'PPApp.Quit

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

end sub