скрипт на прямоугольник

хорошо бы заиметь такой скрипт: при нажатии на кнопку "прямоугольник" появлялся бы запрос на размеры этого самого прямоугольника. После заполнения полей фигура бы размещалась, например, в центре листа.

 

Это как-то быстрей, двойного клика на инструменте прямоугольник и того же "заполнения полей"?

 

[LuiNet]

Ну прям как в иллюстраторе!
F6 > рисуем любой прямоугольник > задаем размеры на панели свойств (напр. 100 >Tab> 100) > Enter > P. Все, он в центре листа.
Что может быть проще, зачем еще скрипт?

 

после отрисовки прямоугольника "руками" и правки размеров некорректно выглядят скругленные углы

 

[LuiNet]

Да, это действительно важно. Можно включить привязку к сетке ( задав сетку, напр. 1 мм).

 

все это не подходит. в идеале было бы, если б после нажатия на инструмент "прямоугольник" поля "размеры" на Property Bar БЫЛИ АКТИВНЫ!!!

 

[Kerch]

Sub Start()
Dim s As Shape
If Application.Documents.Count = 0 Then
MsgBox "Нет открытых документов.", vbOKOnly, "Нет документа"
Exit Sub
End If
ActiveDocument.Unit = cdrMillimeter
x = InputBox("Ширина", , 1)
y = InputBox("Высота", , 1)
Set s = ActiveLayer.CreateRectangle2(0, 0, x, y)
SendKeys "p", True
End Sub

 

уже что-то. Теперь бы еще привязать к кнопке, а кнопку вынести на Toolbox . Да, и `SendKeys "p", True` не работает почему-то

 

[Kerch]

blizzz Написал:
-------------------------------------------------------
> уже что-то. Теперь бы еще привязать к кнопке, а
> кнопку вынести на Toolbox .

Много раз обсуждалось как это делается. Ищите по форуму.

>Да, и `SendKeys "p",
> True` не работает почему-то

Не работает если запускать из-под окна редактора VBA
Если через Play то должно работать. Если конечно кнопка "P" не переназначена на другую команду.