Я пытаюсь сделать снимок экрана из приложения, с которым я подключился с VBA в excel. Я хочу снять снимок экрана и вставить в powerpoint. Тем не менее, я хочу, чтобы каждый снимок экрана был на новом слайде.с помощью VBA в Excel для вставки в Powerpoint
Dim Pptapp Как Новый PowerPoint.Application
Set прес = Pptapp.Presentations.Add
Dim slidev Как PowerPoint.Slide
«(взять скриншот, не нужно код помощи здесь)
«нужна помощь в создании нового слайда » должен помочь вставить скриншот на новый слайд
Я хочу й чтобы иметь возможность Переберите пунктов ниже
'
'
делать до (конец времени)
Скриншот
новый слайд
пасты на новый ползун
петля
Dim Pptapp As New PowerPoint.Application
Set pres = Pptapp.Presentations.Add
Dim slidev As PowerPoint.Slide
PrintTheScreen ' function added else where
Set slidev = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
slidev.Select
PasteTheScreen ' function added else where
Мне нужно было выполнить функцию .select, чтобы убедиться, что слайд получает пасту.
Добро пожаловать в SO! Вставьте код, а не очень широкий алгоритм. Попытки кода делают пользователей SO более эффективными для вашей проблемы. Основываясь на вашей логике операторов, вам нужно сначала определить слайд как «объект». Вставьте слайд в него с помощью 'Powerpoint.Slides.Add', предполагая, что' Powerpoint' является объектом приложения powerpoint, созданным с поздним связыванием. Используйте ту же логику, чтобы добавить «Shape», который вы будете ссылаться на скриншот, очевидно сохраненный в какой-либо директории по вашему предпочтению. –
Как создать слайд как объект? –
Dim slide as object: set slide = powerpoint.slides.add? Вы делаете это от excel vba right –