复制粘贴Excel范围到Powerpoint中而不会中断任何操作

时间:2019-04-15 09:35:25

标签: excel vba

我正在将范围从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对象)开始。正如我上面所说的,它可以作为文本(7)或RTF(9)使用,但这对我来说将是选项B。知道是什么原因造成的吗?

0 个答案:

没有答案