Цитата:
Сообщение от ПРАКТИК
как именно должен выглядеть управляющий макрос?
|
Sub Макрос1()
'
' Макрос1 Макрос
' Присваиваем переменной "а" значение из ячейки "B2"
а = Range("B2").FormulaR1C1
' Присваиваем высоте элемента "Group Box 1" значение а
ActiveSheet.Shapes("Group Box 1").Select
Selection.ShapeRange.Height = а
End Sub
Можно прямо, без промежуточной переменной:
Sub Макрос2()
'
' Макрос2 Макрос
'
' Можно прямо, без промежуточной переменной: присваиваем высоте элемента "Group Box 1" значение ячейки "B2"
ActiveSheet.Shapes("Group Box 1").Select
Selection.ShapeRange.Height = Range("B2").FormulaR1C1
End Sub
Пример во вложении
Цитата:
Сообщение от ПРАКТИК
0,75 у.е. (пунктам наверное).... вопрос... этот шаг есть величина постоянная для экселя, или где то её можно изменить на более "покладистую"?
|
Попробуй отключить привязку к сетке и привязку к объектам в меню "Рисование", если я правильно понял проблему. Откуда взялось 0,75? Где такое написано?