Блог

Главная - Вопросы по программированию - Изменение размера изображений в ppt, но не на первом слайде

Изменение размера изображений в ppt, но не на первом слайде

#vba #powerpoint

#vba #powerpoint

Вопрос:

Изменение размера изображений в ppt, но я не хочу, чтобы оно применялось к первому слайду презентации, какие изменения я должен внести?

введите описание изображения здесь

Комментарии:

1. Пожалуйста, отредактируйте свой вопрос и скопируйте код в виде текста. Его легко адаптировать, но я не хочу воспроизводить его, глядя на картинку…

Ответ №1:

Я знаком с VBA только для Excel, поэтому, возможно, не смогу дать вам точный код. Вы должны вставить «if» после первого оператора For, проверив имя или индекс «osld» — если это 1-й слайд, пропустите часть изменения размера вашего кода. (Вероятно, индекс 1-го слайда равен 0? Пожалуйста, проверьте в PP)

например

 if osld.SlideIndex <> 1 then 
    for each opic in ...
    next
end if

Ответ №2:

Пожалуйста, попробуйте адаптировать свой код таким образом:

 'YOUR CODE
'...
For Each osld In ActivePresentation.Slides
    If osld.SlideID <> ActivePresentation.Slides(1).SlideID Then
        For Each opic in osld.Shapes
            'Do here what your existing code does
        Next
    End If
next
'your existing code

Вместо SlideID вы также можете использовать SlideIndex или SlideNumber .