• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

auto button click using vba macro in addin

A

ASHOK K

New Member
Smart view addin for MSoffice from oracle hyperion ,which can be installed as addin in excel,power point.

we have the data refresh all slides button in SMART View addin in PPT,this button we need to manually open the ppt file and click on the refresh all button to get the data refreshed from db.

What we are trying to do is here to automate the click on refresh all slides button in smartview

below is the code provided by oracle hyperion to automate the refresh all button in smart view

this code exemplified for Excel,i think this code also works for PPT,but we dont know how to replace the excel sheet1 references with ppt references?

Public Declare Function HypExecuteMenu Lib "HsAddin" (ByVal vtSheetName As Variant,ByVal
vtMenuName As Variant) As Long
Sub Example_ExecuteMenu()
sts = HypExecuteMenu("Sheet1", "Panel") 'returns 0
sts = HypExecuteMenu(Empty, "Smartview->Refresh") 'returns 0
sts = HypExecuteMenu("Sheet1", "Refresh") 'returns -73(ambiguity)
sts = HypExecuteMenu("Sheet1", "Connections") 'returns -15(invalid parameter because
"Connections" is not associated with an action)
End Sub

could you please provide how to replace the excel references with ppt object refernces?

Thanks a lot for your help in advance

Regards,
Ashok
 
ASHOK K said:
Smart view addin for MSoffice from oracle hyperion ,which can be installed as addin in excel,power point.

we have the data refresh all slides button in SMART View addin in PPT,this button we need to manually open the ppt file and click on the refresh all button to get the data refreshed from db.

What we are trying to do is here to automate the click on refresh all slides button in smartview

below is the code provided by oracle hyperion to automate the refresh all button in smart view

this code exemplified for Excel,i think this code also works for PPT,but we dont know how to replace the excel sheet1 references with ppt references?

Public Declare Function HypExecuteMenu Lib "HsAddin" (ByVal vtSheetName As Variant,ByVal
vtMenuName As Variant) As Long
Sub Example_ExecuteMenu()
sts = HypExecuteMenu("Sheet1", "Panel") 'returns 0
sts = HypExecuteMenu(Empty, "Smartview->Refresh") 'returns 0
sts = HypExecuteMenu("Sheet1", "Refresh") 'returns -73(ambiguity)
sts = HypExecuteMenu("Sheet1", "Connections") 'returns -15(invalid parameter because
"Connections" is not associated with an action)
End Sub

could you please provide how to replace the excel references with ppt object refernces?

Thanks a lot for your help in advance

Regards,
Ashok
Click to expand...

Hi ,
any idea on this?

Regards,
ashok
 
You must log in or register to reply here.
Back
Top