set properties without dialog popup

F

franz

I'm trying to do something rather simple (I think). Forgive my ignornance as
this is my first attempt.

I'm trying to create a timeline through VBA. When I use the Drop method on
these objects the custom properties dialog popups up. I want to set these
proprties through code and not have the dialog pop. Should be easy, yes? How
to do it?
 
D

David Parker

Do something like...

Visio.Application.AlertResponse = 1
Set shpTimeline = pag.Drop(mst, CDbl(xFormula), CDbl(yFormula))
Visio.Application.AlertResponse = 0

then

Visio.Application.AlertResponse = 1
Set shpMilestone = shpTimeline.ContainingPage.Drop(mst, _
shpTimeline.Cells("PinX").ResultIU,
shpTimeline.Cells("PinY").ResultIU)
Visio.Application.AlertResponse = 0
 
Top