Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставка объекта в EXcel / 7 сообщений из 7, страница 1 из 1
20.01.2006, 12:19:58
    #33493866
Ekonomova
Ekonomova
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
В форму для заполнения вставляю объекты из Visio (просто на лист). Каджому объекту присваивается имя (мжет быть до 10 картинок). Потом их надо все скопировать на другой лист.
Помогите пожалуйста, никак не могу к ним обратиться, выделяет только по имени, а я не знаю какие имена будут использованы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 13:18:41
    #33494124
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim obj As OLEObject
    
    For Each obj In Worksheets("Лист2").OLEObjects
        Debug.Print obj.Name
        Debug.Print obj.ProgId
        obj.Copy
        Worksheets("Лист3").Paste
    Next obj
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 11:33:19
    #33496793
Ekonomova
Ekonomova
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
Большое спасибо
Все работает, только что значат следующие строки, объясните если не трудно (я новичок в этом деле!)
Debug.Print obj.Name
Debug.Print obj.ProgId
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 11:39:33
    #33496816
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
Выводит в окно отладки (Immediate Window) название объекта и его класс, т.е. получим примерно следующее:

Код: plaintext
1.
Object 1
Visio.Drawing.6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 11:48:01
    #33496841
Ekonomova
Ekonomova
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
А тогда еще вопрос
У меня кроме объектов Visio на листе еще OptionButton и т.д. валяются и они у меня вместе с теми объектами копируются, как этого избежать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 12:07:14
    #33496908
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
Можешь так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim obj As OLEObject
    
    For Each obj In Worksheets("Лист1").OLEObjects
        If obj.ProgId Like "Visio*" Then
            obj.Copy
            Worksheets("Лист2").Paste
        End If
    Next obj
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 12:43:36
    #33497034
Ekonomova
Ekonomova
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка объекта в EXcel
Вроде получилось, спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставка объекта в EXcel / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 447ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166519]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 188ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 191ms
total:  447ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]