Перемещение фигур к конкретным словам

Вход

Регистрация

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

= Мир MS Excel/Перемещение фигур к конкретным словам - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Перемещение фигур к конкретным словам

Бонифаций

Дата: Воскресенье, 16.12.2018, 06:53 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Приветствую всех.

В документе word находятся фигуры Rectangle 4, AutoShape 8
Также там - в некоторых местах вписаны слова СЛОВО-1,СЛОВО-N.

Как макросом выполнить перемещение фигур к этим словам ?
Прямоугольник - к "СЛОВО-1", Треугольник - к "СЛОВО-N".

Сейчас фигуры могут двигаться - только смещаясь на небольшие расстояния.
[vba]

Код

Sub Макрос4()
    ActiveDocument.Shapes("AutoShape 8").Select
    Selection.ShapeRange.IncrementLeft 117#
    Selection.ShapeRange.IncrementTop 81#

    ActiveDocument.Shapes("Rectangle 4").Select
    Selection.ShapeRange.IncrementLeft -26.85
    Selection.ShapeRange.IncrementTop 63.15
End Sub

[/vba]

К сообщению приложен файл: 8382008.doc (38.5 Kb)

Ответить

Перемещение фигур к конкретным словам

Страница 1 из 1
1