ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
5 сообщений из 5, страница 1 из 1
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
    #36581338
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Собственно, всё.. Если да, то дайте пример кода.

Я сажаю на слайд пустой бокс и одновременно готовлю его к принятию ранга:
Код: plaintext
1.
2.
3.
Set objSlide = gobjPresentation.Slides( 1 )
        
 objSlide.Shapes.AddOLEObject(Left:= 120 , Top:= 110 , Width:= 480 , Height:= 320 , ClassName:="Paint.Picture", Link:=msoFalse).OLEFormat.Activate
    gobjTemplateOne.Worksheets("МояСтарница").Range("МойРанг").Copy

А вот сажается он на слайд, а не в бокс. Не вижу как правильно это можно сделать.
...
Рейтинг: 0 / 0
15.04.2010, 19:43
| Ответить | Цитировать | Написать  
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
    #36581494
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
VladConn,

Привет, давно не было видно.
Попробуй
Код: plaintext
gobjTemplateOne.Worksheets("МояСтарница").Range("МойРанг").CopyPicture
посмотри параметры
...
Рейтинг: 0 / 0
15.04.2010, 21:48
| Ответить | Цитировать | Написать  
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
    #36581503
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Собственно вот тема
...
Рейтинг: 0 / 0
15.04.2010, 21:57
| Ответить | Цитировать | Написать  
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
    #36586053
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Привет, Игорь!

Да, работает CopyPicture! И не надо добавлять OLEObject. Он кидает картинку прямо на слайд, но с этим методом картинку можно человечески подвинуть и сжать как хочется.

А я сделал сам так, работает, но я не очень люблю SendKeys.

Код: plaintext
1.
2.
    SendKeys "+{INSERT}", True
    SendKeys "{ESCAPE}", True
    SendKeys "{ESCAPE}", True

Твой подход чище.

Спасибо! Просто шик!

:0)
...
Рейтинг: 0 / 0
19.04.2010, 17:09
| Ответить | Цитировать | Написать  
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
    #36586208
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VladConn
> Спасибо! Просто шик!

Хм, я думал что тебе нужно получать не картинку, а сгруппированный набор графических объектов, как получается, когда
вставляешь в Ексель.
Ну да ладно

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
19.04.2010, 18:08
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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