Click the Refresh Button in Addin in PPT Using VBA Macro

[akolla21]

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

[akolla21]

Hi all,
any idea,is my question is clear enough?


Regards,
ashok