Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.09.2019, 18:50   #1
Palomnik1096
Пользователь
 
Регистрация: 12.11.2010
Сообщений: 83
По умолчанию Перенос из Эксель в ПоверПоинт

Добрый день!

Необходима помощь в решении вопроса, написал код в ручном режиме через Ф8 все прекрасно работает, но при запуске макроса пишет ошибку на строке

[CODE] Application.ActiveWindow.View.Paste [CODE]

Ошибка следующего содержания

Run-time error '-2147188160 (80048240)':

Application (unknown member): Invalid request. Cliboard is empty or contains data wiich may not be pasted here.

Код:
Public Sub sdfsd()

Dim xlApp As Object
Dim xlWorkBook As Object
Dim XL As Application
Dim PPSlide As PowerPoint.Slide
Dim valnPath As String

Dim objPPT As PowerPoint.Application, objP As Object
Set objPPT = New PowerPoint.Application
objPPT.Visible = msoCTrue
'Set objP = objPPT.Presentations.Open("C:\1.ppt")

Set xlApp = CreateObject("Excel.Application")

xlApp.DisplayAlerts = True
xlApp.Visible = True

Set xlWorkBook = xlApp.Workbooks.Open("C:\Users\......\Desktop\Çàêëþ÷åíèå", True, False)

    xlWorkBook.Worksheets("Ïðåçåíòàöèÿ_ëèñò_2").Range("C5:E21").Copy
    ActivePresentation.Slides(3).Select
    Application.ActiveWindow.View.Paste
    
    With ActiveWindow.Selection.ShapeRange
        .Height = 200.39
        .Width = 424.03
        .Top = 35.43
        .Left = 15
    End With
    
    xlWorkBook.Worksheets("Ïðåçåíòàöèÿ_ëèñò_2").Range("C25:E45").Copy
    ActivePresentation.Slides(3).Select
    objPPT.ActiveWindow.View.Paste
    
    With ActiveWindow.Selection.ShapeRange
        .Height = 199
        .Width = 424.03
        .Top = 263.88
        .Left = 15
    End With

    xlWorkBook.Worksheets("Ïðåçåíòàöèÿ_ëèñò_2").Range("C50:H79").Copy
    ActivePresentation.Slides(3).Select
    objPPT.ActiveWindow.View.Paste
    
    With ActiveWindow.Selection.ShapeRange
        .Height = 200.39
        .Width = 484.11
        .Top = 35.43
        .Left = 485.53
    End With
    
'    xlWorkBook.Worksheets("Ïðåçåíòàöèÿ_ëèñò_2").Range("E88:F102").Copy
'    ActivePresentation.Slides(3).Select
'    Application.ActiveWindow.View.Paste

xlApp.Visible = False
xlApp.DisplayAlerts = False

xlWorkBook.Activate
xlWorkBook.Close

End Sub
Palomnik1096 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
в эксель Vitalii197777 Microsoft Office Excel 1 31.10.2016 08:55
Перенос из Ворд в Эксель vickdro Microsoft Office Excel 6 11.11.2013 13:00
Программа типа поверпоинт Делфи Konstantin_ua Помощь студентам 1 12.04.2012 18:11
Эксель и ПоверПоинт ogololobov2009 Microsoft Office Excel 5 01.04.2011 23:40
Перенос данных из ворда в эксель Raig Microsoft Office Word 3 06.08.2010 13:38