Форматирование изображений без выбора

Question

Я хочу выполнить различные варианты форматирования изображений в слайдах.

Макрос работает на изображениях, которые я выбрал на слайде, но я бы хотел запустить макрос, не выбирая изображения.

Вот как я в настоящее время работы с изображениями (в данном случае выравнивание изображения в горизонтальном центре слайда) и кусок кода, который я ищу помощи замены:

With ActiveWindow.Selection.ShapeRange 
.Align (msoAlignCenters), msoTrue 
End With 

Вот весь код тела до сих пор:

Sub TestCenterImage() 
Dim osld As Slide 
Dim oshp As Shape 

For Each osld In ActivePresentation.Slides 
If osld.SlideIndex > 1 Then Exit Sub 'I don't know if I need this line 
For Each oshp In osld.Shapes 
    If CheckIsPic(oshp) = True Then 'Making sure that we're only working with images 
    With ActiveWindow.Selection.ShapeRange 'The portion of code I need help with 
    .Align (msoAlignCenters), msoTrue 
    End With 
    End If 
Next oshp 
Next osld 
End Sub 

Function CheckIsPic(oshp As Shape) As Boolean 
If oshp.Type = msoPicture Then CheckIsPic = True 
If oshp.Type = msoPlaceholder Then 
    If oshp.PlaceholderFormat.ContainedType = msoPicture Then CheckIsPic = True 
End If 
End Function 

Answer 1

Попробуйте этот путь вместо этого:

Sub TestCenterImage() 
Dim osld As Slide 
Dim oShp As Shape 

For Each osld In ActivePresentation.Slides 
'If osld.SlideIndex > 1 Then Exit Sub 'I don't know if I need this line 
For Each oShp In osld.Shapes 
    If CheckIsPic(oShp) = True Then 'Making sure that we're only working with images 
    CenterOnSlide oShp 
    'End With 
    End If 
Next oShp 
Next osld 
End Sub 

Function CheckIsPic(oShp As Shape) As Boolean 
If oShp.Type = msoPicture Then CheckIsPic = True 
If oShp.Type = msoPlaceholder Then 
    If oShp.PlaceholderFormat.ContainedType = msoPicture Then CheckIsPic = True 
End If 
End Function 

Sub CenterOnSlide(oShp As Shape) 
    Dim sngSlideWidth As Single 
    Dim sngSlideHeight As Single 

    sngSlideWidth = ActivePresentation.PageSetup.SlideWidth 
    sngSlideHeight = ActivePresentation.PageSetup.SlideHeight 

    oShp.Left = sngSlideWidth/2 - oShp.Width/2 
    oShp.Top = sngSlideHeight/2 - oShp.Height/2 


End Sub 

Answer 2

For Each osld In ActivePresentation.Slides 
If osld.SlideIndex > 1 Then Exit Sub 'I don't know if I need this line 

'Если оставить эту строку в ваш код будет касаться только первый слайд презентации. «Если это то, чего ты хочешь, отлично. В противном случае удалите его и соответствующий End If ниже.

For Each oshp In osld.Shapes 
    If CheckIsPic(oshp) = True Then 'Making sure that we're only working with images 

'С ActiveWindow.Selection.ShapeRange 'Часть кода мне нужна помощь с ' Вместо: С oshp

.Align (msoAlignCenters), msoTrue 
    End With 
    End If 
Next oshp 
Next osld 
End Sub