Код VBA для Powerpoint, изменяет все объекты MS (из Excel) всех слайдов

Question

У меня много слайдов в Powerpoint.У всех есть MS Object Соединения с таблицами Excel.Я ищу код, чтобы изменить размер и положение всех этих объектов.У меня уже есть код.Но проблема в том, что он также меняет размер и положение текстов.Кто-нибудь знает, как это изменить?

Sub ResizeAll()
For Each tSlide In ActiveWindow.Presentation.Slides
tSlide.Select
With tSlide.Shapes.Item(1)
'assume a blank slide with one image added only
   .Select
   .Height = 72 * 1000.39
   .Width = 72 * 10.67
'algin middle (Horizontal Center)
   .Left = 100
   .Top = ActivePresentation.PageSetup.SlideHeight / 5
End With
Next
End Sub

Answer 1

Я бы держался подальше от использования объекта Selection.Этот код проверяет, что фигура является объектом OLE, а затем изменяет размер только этой фигуры.Если это не отвечает на ваш вопрос, уточните «также изменяет размер и положение текстов».

Sub EnlargeExcelTables()
  Dim oSlide As Slide
  Dim oShape As Shape
  For Each oSlide In ActivePresentation.Slides
    For Each oShape In oSlide.Shapes
      If oShape.Type = msoLinkedOLEObject Then
        With oShape
          'Insert Size process here.
        End With
      End If
    Next oShape
  Next oSlide
End Sub