Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Power Point » macro para guardar como

Power Point - macro para guardar como

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Emiliano

macro para guardar como

Publicado por Emiliano (3 intervenciones) el 14/06/2017 23:11:57
Hola buenas tardes

Esperando alguien me pueda ayudar
tengo esta macro que modifica el tamaño de una imagen que abarca toda la diapositiva, la ajusta a ella
y detecta cuantas diapositivas ay en la presentacion y cumple con un ciclo de repeticion para todas las diapositivas
Pero ahora solo necesito guardar cada diapositiva como jpg y eso ya lo tengo solo que necesito que al momento de que la macro valla a guardar las imagenes quiero que me abra la vantana de guardar como para cada vez que ejecute la macro yo pueda guardarlas en distintas carpetas
Espero alguien me pueda apoyar


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
38
39
40
41
Sub conmanejadordeerrores()
Dim i As Integer
'en caso de encontrar un error sigue ejecutando la macro
On Error GoTo Salir

For i = 1 To 50

'modificaremos el tamaño de la imagen
With ActivePresentation.Slides(i).Shapes(1)
.Fill.Transparency = 0
.LockAspectRatio = msoFalse
.Height = 500
.Width = 900
.IncrementLeft 175 * IIf((i - 1) Mod 2, -1, 1)
.IncrementTop 100 * IIf(i > 2, -1, 1)
.Left = 30
.Top = 20
End With
Next i
Salir:
i = i - 1
MsgBox "SE FINALIZARON LAS " & i & " DIAPOSITIVAS"
End Sub
 
 
Sub Save_PowerPoint_Slide_as_Images()
'*convierte diapositiva por diapositiva en imagen jpg y la guarda
Dim sImagePath As String

Dim sImageName As String

Dim oSlide As Slide '* Objeto de diapositiva
Dim lScaleWidth As Long '* Ancho de la escala
Dim lScaleHeight As Long '* Altura * Escala
On Error GoTo Err_ImageSave
sImagePath = "C:\Users\Emiliano\Desktop\imagenes\"
For Each oSlide In ActivePresentation.Slides
sImageName = oSlide.Name & ".jpg"
oSlide.Export sImagePath & sImageName, "JPG"
Next oSlide
Err_ImageSave:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

macro para guardar como

Publicado por George Ventara (1 intervención) el 17/08/2018 00:51:54
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
Sub Save_PowerPoint_Slide_as_Images()
'*convierte diapositiva por diapositiva en imagen jpg y la guarda
Dim sImagePath As String

Dim sImageName As String

Dim oSlide As Slide '* Objeto de diapositiva
Dim lScaleWidth As Long '* Ancho de la escala
Dim lScaleHeight As Long '* Altura * Escala
On Error GoTo Err_ImageSave
 
'select a folder to save
With Application.FileDialog(msoFileDialogFolderPicker)

    .Show



    If .SelectedItems.Count = 1 Then

        sImagePath = .SelectedItems(1)

    End If

End With



For Each oSlide In ActivePresentation.Slides

sImageName = oSlide.Name & ".jpg"

oSlide.Export sImagePath & "\" & sImageName, "JPG"

Next oSlide

Err_ImageSave:

If Err <> 0 Then

MsgBox Err.Description

End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar