Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint? / 5 сообщений из 5, страница 1 из 1
15.04.2010, 19:43
    #36581338
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
Собственно, всё.. Если да, то дайте пример кода.

Я сажаю на слайд пустой бокс и одновременно готовлю его к принятию ранга:
Код: 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, 21:48
    #36581494
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно скопировать ранг из Eхcel в пустой объект Image в PowerPoint?
VladConn,

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

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

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

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

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

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

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

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

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


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