Доброго дня. Помогите решить непростой вопрос, уважаемые форумчане.
Я макросом создаю на листе такую вещь как облачко диалога: [vba]
Код
Sub Макрос1()
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 305.25, 125.25, _ 139.5, 103.5).Select Selection.ShapeRange.Adjustments.Item(1) = 1.58199 Selection.ShapeRange.Adjustments.Item(2) = 0.84239 Range("A1").Select End Sub
[/vba]
С размещением основного объекта - никаких проблем - достаточно указать координаты, высоту и ширину. А вот с таким элементом как выноска - сложнее. Команда Selection.ShapeRange.Adjustments.Item(1) - видимо оперирует какими-то относительными величинами, а не координатами.
Ответьте, если кто знает - как привязать точку выноски - к конкретной координате указанной в ячейках F3, G3 ?
Потому что сейчас - очень сложно понять где окажется конец выноски - если пользоваться командой Selection.ShapeRange.Adjustments.Item(1) = 1.58199, оперирующей какими-то относительными величинами.
Доброго дня. Помогите решить непростой вопрос, уважаемые форумчане.
Я макросом создаю на листе такую вещь как облачко диалога: [vba]
Код
Sub Макрос1()
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 305.25, 125.25, _ 139.5, 103.5).Select Selection.ShapeRange.Adjustments.Item(1) = 1.58199 Selection.ShapeRange.Adjustments.Item(2) = 0.84239 Range("A1").Select End Sub
[/vba]
С размещением основного объекта - никаких проблем - достаточно указать координаты, высоту и ширину. А вот с таким элементом как выноска - сложнее. Команда Selection.ShapeRange.Adjustments.Item(1) - видимо оперирует какими-то относительными величинами, а не координатами.
Ответьте, если кто знает - как привязать точку выноски - к конкретной координате указанной в ячейках F3, G3 ?
Потому что сейчас - очень сложно понять где окажется конец выноски - если пользоваться командой Selection.ShapeRange.Adjustments.Item(1) = 1.58199, оперирующей какими-то относительными величинами.димитрий2