Open the Gaussian Blur Menu programmatically

Try:

Sub ApplyGaussianBlur()
If ActiveShape.Type = cdrBitmapShape Then ActiveShape.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=800,GaussianBlurResampled=0"
End Sub

Sub GaussianBlur_Dialog_SK()
If ActiveShape.Type = cdrBitmapShape Then SendKeys "%cb g"
End Sub

Sub GaussianBlur_Dialog_Invoke()
If ActiveShape.Type = cdrBitmapShape Then Application.FrameWork.Automation.Invoke "a0f20985-2078-4629-98ed-ffc91fa4c0bd"
End Sub

Please, download this GMS, show its UserForm1 and press 'Get Command Bars'. A list of command bars will populate the left list box. Clicking on a command bar, all its controls guide will be displayed in the larger lest box.

Now, in order to find the guide of a control not usually staying on one of those command bars, you should add the control in discussion on a command bar, using 'Customize->Menu Bar->Add New Command`. 'Property Bar' looks to be the most accessible. You can search for the control selecting 'All (Show All Items)' and move the control on the bar, simple using drag and drop. 

Then, press again  'Get Command Bars' and click on the bar you place the control. In the right list box you can find it...

There is another button named (in Romanian) 'Help pentru controale noi'. If pressed, it will show a message saying in Romanian something similar with what I tried describing above...

In order to place the link I used a transfer site and it will be valid only for the next 7 days...