Изменение шрифта текста в объекте, вставленном в PP, используя VBA в Excel (Таблица как Таблица в PP)

Question

Проблема: невозможно изменить шрифт таблицы, вставленной в power point.Я копирую таблицу (раздел электронной таблицы) в слайд powerpoints (Layout только для заголовка). Мне нужно иметь возможность изменить текст в таблице в powerpoint.Поэтому я использовал как Datatype: = ppPasteOLEObject.В Powerpoint я могу изменить шрифт, но я хочу, чтобы это было сделано в моем программировании.У кого-нибудь есть идея?Спасибо

Worksheets("Must Win").Activate
LastRow = Cells(Rows.Count, "L").End(xlUp).Row
Page = Int(((LastRow - 1) / 5) + 0.5)
FIrstRow = 1
For i = 1 To Page
'Add a slide to the Presentation
  Set mySlide = myPresentation.Slides.Add(Pages, 11) '11 = ppLayoutTitleOnly
 Pages = Pages + 1
'Copy Range from Excel

  LastRow = i * 5
  Set rng = Worksheets("Must Win").Range("A" & FIrstRow & ":M" & LastRow)
  FIrstRow = LastRow + 1
  rng.Copy

 'Paste to PowerPoint and position
  mySlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse
  Set myShape = mySlide.Shapes(mySlide.Shapes.Count)

    'Set position:
      myShape.Left = 40
      myShape.Top = 80
      myShape.Height = 400
      myShape.Width = 880
 'set HEader
    mySlide.Shapes(1).TextFrame.TextRange = "Win Targets – Medical (Must Win) "
    mySlide.Shapes(1).TextFrame.TextRange.Font.Size = 20 'Header

Next i

Answer 1

Чтобы установить размер шрифта для таблицы, попробуйте следующее ...

  Dim myTable As Object
  Set myTable = myShape.Table

  Dim myRow As Long
  Dim myCol As Long
  With myTable
    For myRow = 1 To .Rows.Count
        For myCol = 1 To .Columns.Count
            .Cell(myRow, myCol).Shape.TextFrame.TextRange.Font.Size = 20
        Next myCol
    Next myRow
  End With