How to draw in Visio with VBA

[Hasch2o]

Hello everybody

I'm searching now for more then 2 Hours now!
And I hope I get an answer at this Newsgroup here

I have a code, everything works fine, but now i want to
draw a rectangle on the activedocument! And I can't
figure out how i could manage this

If anybody has a link to a tutorial or a book or whateve
please post it. I now it's not a hard question, but I don'
get it

Many Thanks
HascH-2-O

 

[dani]

Hi

the following code draws a rectangle:

you have to draw on the pages, not on the documents...

ActivePage.DrawRectangle(beginX,beginY,endX,endY);

Sincerely

Daniel

 

[Hasch2o]

Hi Dan

thx for your Reply, but there's something going wrong
I made a Button and put the code inside of it

But it won't work! if i do it this way
ActivePage.DrawRectangle(beginX,beginY,endX,endY)
visio tells me, that it's missing an end of the code
and when i do it that way
ActivePage.DrawRectangle(beginX,beginY,endX,endY
visio expects a "=

I don't know what i'm doing wrong

I worked a lot with vba for access and i have never ha
such problems :

Thx again for your Reply

HascH-2-O