ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Макрос для переноса диаграм и таблиц из execl в powerpoint
24 сообщений из 49, страница 2 из 2
  2  все
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34834746
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
PlayerPОчередная редакция.
Тема продолжается!
Скачал, может вечером дома посмотрю, будут идеи напишу.
...
Рейтинг: 0 / 0
28.09.2007, 14:12
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34836742
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Кусок который за копирование отвечает можно немного оптимизировать. посмотри может что пригодится.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Do While Not Application.Worksheets("Список слайдов").Cells(count,  4 ) = ""
       'Создаёт новый слайд
       Range(Worksheets("Список слайдов").Cells(count,  4 ).Value).Copy
        
       With pPpt.Slides.Add(x, ppLayoutBlank).Shapes
       
         .PasteSpecial ppPasteOLEObject, , , , , msoTrue
         
         'Вставляем общий заголовок
         .AddLabel(msoTextOrientationHorizontal,  20 ,  20 ,  200 ,  40 ). _
             TextFrame.TextRange.Text = Worksheets("Список слайдов").Cells( 1 ,  1 ).Value
         'Вставляем заголовок страницы
         .AddLabel(msoTextOrientationHorizontal,  20 ,  100 ,  200 ,  40 ). _
             TextFrame.TextRange.Text = Worksheets("Список слайдов").Cells(count,  4 ).Value
        End With
        x = x +  1 
        count = count +  1 
    Loop
...
Рейтинг: 0 / 0
30.09.2007, 02:06
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34837673
PlayerP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlayerP
Гость
Deggasad привет. Подскажи пожалуйста как мне задать координаты "ppPasteOLEObject" вставляемого объекта. По умолчанию он вставляется в середину листа.
И ещё, как мне придать общему заголовку шрифт и цвет шрифта?
...
Рейтинг: 0 / 0
01.10.2007, 10:47
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34838786
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Вот посмотри, а вообще открывай ПоверПоинт и через запись макроса пробуй-эксперементируй

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
    Do While Not Application.Worksheets("Список слайдов").Cells(count,  4 ) = ""
       'Создаёт новый слайд
       Range(Worksheets("Список слайдов").Cells(count,  4 ).Value).Copy
        
       With pPpt.Slides.Add(x, ppLayoutBlank)
          
            .Shapes.PasteSpecial ppPasteOLEObject, , , , , msoTrue
            ' определение положения первого объекта
            With .Shapes( 1 )
                .Left =  25 
                .Top =  40 
                .Width =  675 
                '.Height = 460
            End With

            'Вставляем общий заголовок
            With .Shapes.AddLabel(msoTextOrientationHorizontal,  20 ,  20 ,  200 ,  40 ).TextFrame.TextRange
               .Text = Worksheets("Список слайдов").Cells( 1 ,  1 ).Value
               With .Font
                  .Size =  14 
                  .Name = "Times New Roman"
                  .Color.RGB = RGB(Red:= 0 , Green:= 51 , Blue:= 204 )
               End With
            End With
            'Вставляем заголовок страницы
            With .Shapes.AddLabel(msoTextOrientationHorizontal,  20 ,  100 ,  200 ,  40 ).TextFrame.TextRange
               .Text = Worksheets("Список слайдов").Cells(count,  4 ).Value
               With .Font
                  .Size =  14 
                  .Name = "Times New Roman"
                  .Color.RGB = RGB(Red:= 0 , Green:= 51 , Blue:= 204 )
               End With
            End With
            
       End With
       x = x +  1 
       count = count +  1 
    Loop
...
Рейтинг: 0 / 0
01.10.2007, 16:01
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34838980
PlayerP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlayerP
Гость
Deggasad спасибо!!! Есть продолжение темы но я пока не знаю как её воплотить в реальность. Я с начало сам подумаю если что то, Deggasad ты поможешь мне???
...
Рейтинг: 0 / 0
01.10.2007, 17:14
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34839227
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
PlayerPDeggasad ты поможешь мне???

ну и вопрос, даже не знаю что ответить! всё будет зависеть от вопроса, наличия времени и т.д...
Или ты хочешь чтобы я пообещал ...
...
Рейтинг: 0 / 0
01.10.2007, 18:47
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34839831
PlayerP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlayerP
Гость
Deggasad: Обещаний никаких не надо, это был вопрос, а не просьба.
...
Рейтинг: 0 / 0
02.10.2007, 09:04
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34839869
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
PlayerPDeggasad: Обещаний никаких не надо, это был вопрос, а не просьба.

Лучше ближе к делу...
Выкладывай код, будем обсуждать, если получится
...
Рейтинг: 0 / 0
02.10.2007, 09:33
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34841612
PlayerP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlayerP
Гость
RC1 Смотрите вложения
...
Рейтинг: 0 / 0
02.10.2007, 17:00
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34842574
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
PlayerPRC1 Смотрите вложения

Есть какие-то конкретные вопросы?

Вот например при работе с именами правильнее пользоваться коллекцией имён, хотя кому как больше нравится.
Вот посмотрите заполнение ЛистБокса

Код: plaintext
1.
2.
3.
4.
5.
Private Sub UserForm_Initialize()
  Dim iName As Name
   For Each iName In ActiveWorkbook.Names
        UserForm1.ListBox1.AddItem iName.Name
   Next
End Sub
...
Рейтинг: 0 / 0
03.10.2007, 08:25
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34844724
PlayerP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlayerP
Гость
Как сделать выгрузку из ListBox в Эксель например в лист 1???
...
Рейтинг: 0 / 0
03.10.2007, 17:31
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34844972
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
PlayerPКак сделать выгрузку из ListBox в Эксель например в лист 1???

Либо так, либо я не понял

Код: plaintext
1.
2.
3.
  Dim i As Long
  For i =  1  To ListBox1.ListCount
       Sheets("Лист1").Range("G" & i).Value = ListBox1.List(i -  1 )
  Next
...
Рейтинг: 0 / 0
03.10.2007, 19:13
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34951242
PlayerP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlayerP
Гость
Deggasad, привет. Как расширить вставляемую таблицу по ширине слайда? Чего то мне не сообразить ка это сделать. Посмотри в моём случае таблицу №6, она всегда вставляется маленькой.
...
Рейтинг: 0 / 0
20.11.2007, 11:42
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34952480
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
PlayerPDeggasad, привет. Как расширить вставляемую таблицу по ширине слайда? Чего то мне не сообразить ка это сделать. Посмотри в моём случае таблицу №6, она всегда вставляется маленькой.

Скачал, вечером дома посмотрю.
...
Рейтинг: 0 / 0
20.11.2007, 15:54
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #34970303
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Лучше поздно чем никогда.
Например вместо
Код: plaintext
1.
2.
3.
4.
5.
        If sPpt.Shapes( 1 ).Width > maxW Then
           sPpt.Shapes( 1 ).Width = maxW
        End If
        If sPpt.Shapes( 1 ).Height > maxH Then
           sPpt.Shapes( 1 ).Height = maxH
        End If
Написать
Код: plaintext
1.
2.
3.
4.
        sPpt.Shapes( 1 ).Width = maxW
        sPpt.Shapes( 1 ).Height = maxH
        If sPpt.Shapes( 1 ).Width > maxW Then
           sPpt.Shapes( 1 ).Width = maxW
        End If
...
Рейтинг: 0 / 0
27.11.2007, 23:25
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #35464085
ZhukElena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZhukElena
Гость
Уважаемый Deggasad!
Я усердно скоприровала ваш макрос для импорта из открытого экселя, но он у меня не работает- выдает ошибки, я думаю из-за 2007 версии паверпойнта. Помогите блондинке:) Файлик с ошибками приложила
...
Рейтинг: 0 / 0
31.07.2008, 18:14
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #36591300
VanMail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VanMail
Гость
Здравствуйте Deggasad.
Почему то все макросы стопорятся на этой строке:
ActiveWindow.View.PasteSpecial ppPasteOLEObject, , , , , msoTrue
если оставить
ActiveWindow.View.Paste
что то ещё выполняется, но не во всех макросах. Может это зависит от версии поинта и екселя, у меня 2007 и 2010. И это не только в моих файлах, но и в тех что скачал с сайта.
И там, и там макросы на этой строке останавливаются. Поиск ppPasteOLEObject ничего не дал, чтобы почитать, понять причину и сделать какие то исправления.
...
Рейтинг: 0 / 0
21.04.2010, 23:23
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #36974652
Maikl 5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maikl 5
Гость
Deggasad, доброго времени суток.
Подкажите, как избавиться от видимых ячеек, что бы в Power Point вставлять только график, таблицу.

Спасибо.
...
Рейтинг: 0 / 0
24.11.2010, 15:52
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #36978205
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Maikl 5,
Если просто избавиться от сетки - то убрать сетку в экселе на нужных листах, если нужно именно сами диаграммы вставлять, то у меня был пример в начале раздела как это делать.
...
Рейтинг: 0 / 0
26.11.2010, 08:57
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #36978215
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
VanMailЗдравствуйте Deggasad.
Почему то все макросы стопорятся на этой строке:
ActiveWindow.View.PasteSpecial ppPasteOLEObject, , , , , msoTrue
если оставить
ActiveWindow.View.Paste
что то ещё выполняется, но не во всех макросах. Может это зависит от версии поинта и екселя, у меня 2007 и 2010. И это не только в моих файлах, но и в тех что скачал с сайта.
И там, и там макросы на этой строке останавливаются. Поиск ppPasteOLEObject ничего не дал, чтобы почитать, понять причину и сделать какие то исправления.

У меня нет 2007 или 2010, поэтому не могу проверить, но вы сами можете включить запись макроса в поинте, скопировать в экселе определенную область и в поинте нажать правка - специальная вставка - связать и ОК, посмотреть что получится в записи макроса и помейте строку именно с копированием.
...
Рейтинг: 0 / 0
26.11.2010, 09:04
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #36978219
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ZhukElena,

у меня 2003 офис, ноуты под рукой все рабочие с ПО лицензионным, дома не живу сейчас толком, так что придется вам самим дорабатывать или обновить вопрос и попросить других форумчан переделать на 2007 или еще лучше протестировать чтобы на любом работало
...
Рейтинг: 0 / 0
26.11.2010, 09:07
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #37979278
Andemki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andemki
Гость
Переделал PowerPoint презентацию так чтобы она работала с Вордом. Т.е. каждую страницу документа помещала на отдельный слайд (отправляю то что получилось, в ворде надо добавить в конце документа пустую страницу, чтобы всё скопировалось). А теперь вопрос: можно ли сделать чтобы таблицы с Ворда копировались в PowerPoint не через специальную вставку как связанный объект Ворда, а как нормальная таблица PowerPoint? Тоже самое с графиками, но их можно копировать как рисунки. Важно только, чтобы таблицы были автономно редактируемы и исходный документ Ворда был не нужен. Если можно, напишите пожалуйста как.
Большое спасибо!
...
Рейтинг: 0 / 0
01.10.2012, 20:07
| Ответить | Цитировать | Написать  
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #37979282
Andemki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andemki
Гость
Прошлый файл неправильно открывается, добавил в архив rar (rarr->rar)
...
Рейтинг: 0 / 0
01.10.2012, 20:12
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Макрос для переноса диаграм и таблиц из execl в powerpoint
    #38559226
Valery222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valery222
Гость
Deggasad,

Помогите, пожалуйста, создать макрос, чтобы из Excel можно было бы перенести таблицу в презентацию Power Point. Первый раз имею дело с макросом, поэтому надеюсь на понимание)
...
Рейтинг: 0 / 0
13.02.2014, 01:48
| Ответить | Цитировать | Написать  
24 сообщений из 49, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Макрос для переноса диаграм и таблиц из execl в powerpoint
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38559226&tid=2156517]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 17ms
total:  160ms
созд. / загр.: 160ms
x
x
Закрыть


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