Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Назначение координаты для элемента фигуры - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Назначение координаты для элемента фигуры (Макросы/Sub)
Назначение координаты для элемента фигуры
димитрий2 Дата: Вторник, 26.03.2019, 16:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго дня.
Помогите решить непростой вопрос, уважаемые форумчане.

Я макросом создаю на листе такую вещь как облачко диалога:
[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, оперирующей какими-то относительными величинами.
К сообщению приложен файл: 0545645.xls(39.0 Kb)


Сообщение отредактировал димитрий2 - Вторник, 26.03.2019, 16:33
 
Ответить
СообщениеДоброго дня.
Помогите решить непростой вопрос, уважаемые форумчане.

Я макросом создаю на листе такую вещь как облачко диалога:
[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
Дата добавления - 26.03.2019 в 16:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Назначение координаты для элемента фигуры (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!