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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Перемещение фигур к конкретным словам
Перемещение фигур к конкретным словам
Бонифаций Дата: Воскресенье, 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)
 
Ответить
СообщениеПриветствую всех.

В документе 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]

Автор - Бонифаций
Дата добавления - 16.12.2018 в 06:53
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Перемещение фигур к конкретным словам
  • Страница 1 из 1
  • 1
Поиск:

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