View Single Post
  #4  
Old 28-05-2012, 13:50
SteveDude SteveDude is offline
Senior Member
 
Join Date: Dec 2005
Location: Salina, Kansas USA
Posts: 149
Default ...That's pretty cool.

Try using this when you are adding the toggle button...
Code:
    With FrameWork.CommandBars("Dockers").Controls.AddToggleButton("0F10EF19-3BD9-458F-9FA5-60320658A792", 0, False)
.Caption="Multigon Tool"
End With

End Sub
The only bad thing is that it doesn't stick the next time you load Draw...it is a bug. There are a couple of ways to make it work though with one, adding everything but the button with AppUI.xslt and DrawUI.xslt and then add just the Toggle Button with VBA, not defining the caption.

You might also try wrapping everything in BeginCommandGroup and EndCommandGroup so you can easily undo and redo it.
Reply With Quote