如何将单元格范围从Excel复制到PowerPoint - VBA [英] How to copy cell range as table from Excel to PowerPoint - VBA

问题描述

我找不到任何办法。我现在所做的是将它作为一个图像复制：

  Dim XLApp As Excel.Application 
 Dim PPSlide作为幻灯片
 
设置XLApp = GetObject（，Excel.Application）
 XLApp.Range（A1：B17）。选择
 XLApp.Selection.CopyPicture外观：= xlScreen，格式：= xlPicture 
 PPSlide.Shapes.Paste.Select 
  

这样做就像魅力，但是可以让它将范围复制为表格而不是图片吗？

解决方案

这可以简单地完成使用

  Dim XLApp As Excel.Application 
 Dim PPSlide As Slide 
 
 Set XLApp = GetObject（，Excel.Application）
 XLApp.Range（A1：B17）。复制
 PPSlide.Shapes.PasteSpecial DataType：= ppPasteOLEObject，Link：= msoFalse 
  

I can't find any way to do this. What I have now is that it copy the range as an image:

Dim XLApp As Excel.Application 
Dim PPSlide As Slide 

Set XLApp = GetObject(, "Excel.Application") 
XLApp.Range("A1:B17").Select 
XLApp.Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPSlide.Shapes.Paste.Select

this works like a charm, but is it possible to get it to copy the range as a table instead of picture?

解决方案

This can be done simply with

Dim XLApp As Excel.Application
Dim PPSlide As Slide

Set XLApp = GetObject(, "Excel.Application")
XLApp.Range("A1:B17").Copy
PPSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse

这篇关于如何将单元格范围从Excel复制到PowerPoint - VBA的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！