Скопируйте и вставьте диапазон Excel в Powerpoint, не обрезая ничего

Question

Я копирую диапазоны из Excel в Powerpoint. На двух листах с большим количеством текста это работает с кодом ниже, но для третьего листа нет.

У меня есть четыре строки текста на этом листе, которые должны отображаться в Powerpoint. Это четыре строки, все в одном столбце. Одна из строк довольно длинная, и проблема в том, что когда я вставляю ее как что-либо, кроме текста, она обрывается.

Я думаю, что это должно работать, вставляя его в текст, когда я уменьшаю шрифт, но я бы предпочел его в качестве файла изображения ... есть ли какой-то недостаток, если я использую текст?

В любом случае, вот фрагмент кода:

Set rng = ThisWorkbook.Sheets("2").Range("B1:B3")
rng.Copy
mySlide.Shapes.PasteSpecial DataType:=2
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
With myShape
      .Width = 400
      .Height = 35
      .Top = 350
      .Left = 330
End With

Я пробовал разные типы данных, от 0 (по умолчанию), 2 (расширенный метафайл) и 10 (OLE Object). Как я уже говорил выше, текст (7) или RTF (9) работает, но для меня это вариант Б. Есть идеи, что может вызвать это?