Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub Save_PowerPoint_Slide_as_Images(path As String)
Dim sImagePath As String
Dim sImageName As String
Dim sPrefix As String
Dim oSlide As Slide '* Slide Object
Dim lScaleWidth As Long '* Scale Width
Dim lScaleHeight As Long '* Scale Height
On Error GoTo Err_ImageSave
sImagePath = path
sPrefix = Split(ActivePresentation.Name, ".")(0)
For Each oSlide In ActivePresentation.Slides
sImageName = sPrefix & "-" & oSlide.SlideIndex & ".jpg"
oSlide.Export sImagePath & "\" & sImageName, "JPG"
Next oSlide
Err_ImageSave:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub
[SIZE=1]Option Explicit
Public Sub PresentationsToImages()
Dim lngPresentations As Long
Dim strImageName As String
Dim strImagePath As String
Dim strPresentationName As String
Dim strPresentationPath As String
Dim objSlide As Object
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
For lngPresentations = 1 To .SelectedItems.Count
strPresentationPath = .SelectedItems(lngPresentations)
Presentations.Open strPresentationPath, msoTrue
With ActivePresentation
strPresentationName = Split(.Name, ".")(0)
strImagePath = .path
For Each objSlide In .Slides
With objSlide
strImageName = strPresentationName & "-" & Format(.SlideIndex, "000") & ".jpg"
.Export strImagePath & "\" & strImageName, "JPG"
End With
Next
.Close
End With
Next
End With
MsgBox "Presentations exported as images."
End Sub
[/SIZE]
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.