Add Commandbutton on Visio page at run time

A

Aidn

Please see code am using to add button on Visio page
Error message is "Active X component can't create object

Dim bttnObjs As OLEObjec

Set bttnObjs = Visio.ActivePage.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False
, DisplayAsIcon:=False, Left:=5, Top:=5, Width:=10.75, Height:=10.5

This code is run via application, not via VBA inside visio
Any clue would be appriciated
Aidn
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ActiveX Properties missing from menu 2
Macro to add button w/code to new worksheet 2
Excel crashes and restarts when accessing newly created worksheet 2
Place Text box at Mouse Pointer Position on a page 0
getting text out of TextBox into code 0
creating frame and option buttons programmatically 2
Visio 2007 Control Issue - Events are not working 8
access to the visio object model from a VB add-on 2

Top