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

Вход

Регистрация

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

 

= Мир MS Excel/Как записать координаты и параметры фигур перед удалением - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как записать координаты и параметры фигур перед удалением
SkyGreen Дата: Четверг, 06.08.2020, 07:40 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Приветствую всех.
У меня есть макрос где размещаются на листе разные объекты.
Но вот - координаты размещения этих объектов - не знаю как поставить.

Как разместить объекты не где-то , а по координатам представленным в таблице (столбцы H:I) ?
К сообщению приложен файл: 5892826.xls (49.5 Kb)
 
Ответить
СообщениеПриветствую всех.
У меня есть макрос где размещаются на листе разные объекты.
Но вот - координаты размещения этих объектов - не знаю как поставить.

Как разместить объекты не где-то , а по координатам представленным в таблице (столбцы H:I) ?

Автор - SkyGreen
Дата добавления - 06.08.2020 в 07:40
gling Дата: Четверг, 06.08.2020, 10:15 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2563
Репутация: 706 ±
Замечаний: 0% ±

2010
Здравствуйте.
Может так?[vba]
Код
            
                With ActiveSheet.Shapes.AddShape(tip, 20 + I * 10, 10 + I * 10, arr(I, 4), arr(I, 3))
                    .DrawingObject.Caption = arr(I, 5)
                    .Name = arr(I, 2) & " " & arr(I, 1)
                    .Left = arr(I, 6)
                    .Top = arr(I, 7)
                End With
[/vba]


ЯД-41001506838083

Сообщение отредактировал gling - Четверг, 06.08.2020, 10:15
 
Ответить
СообщениеЗдравствуйте.
Может так?[vba]
Код
            
                With ActiveSheet.Shapes.AddShape(tip, 20 + I * 10, 10 + I * 10, arr(I, 4), arr(I, 3))
                    .DrawingObject.Caption = arr(I, 5)
                    .Name = arr(I, 2) & " " & arr(I, 1)
                    .Left = arr(I, 6)
                    .Top = arr(I, 7)
                End With
[/vba]

Автор - gling
Дата добавления - 06.08.2020 в 10:15
SkyGreen Дата: Четверг, 06.08.2020, 17:46 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
gling, спасибо
 
Ответить
Сообщениеgling, спасибо

Автор - SkyGreen
Дата добавления - 06.08.2020 в 17:46
  • Страница 1 из 1
  • 1
Поиск:

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