Непонятно, что вы пытаетесь сделать.Почему вы хотите изменить выбранный инструмент рисования?
Если все, что вам нужно, это изменить выбранный инструмент рисования, вы можете использовать метод DoCmd для объекта Application.Эти два оператора в VBA заменят инструмент рисования на инструмент Линия и инструмент Прямоугольник соответственно:
Visio.Application.DoCmd visCmdDRLineTool
Visio.Application.DoCmd visCmdDRRectTool
Подробнее см. Команды DoCmd / DOCMD для MSDN .
DoCmd может не делать то, что вы ожидаете, если текущее окно не является окном для рисования или если приложение находится в модальном состоянии.Вам следует защититься от такого состояния и ожидать, что DoCmd вернет ошибку и / или выдаст исключения.