excel - 在 Mac Office 上从 Excel 选择性粘贴到 Powerpoint
问题描述
我的代码在 Windows 上运行良好,但在 MacBook 上却不行。我需要将一系列单元格复制到 Powerpoint,但它应该是可编辑的,所以我只需要复制文本。PasteSpecial 似乎不适用于 Mac 办公室。在 Mac 中起作用的是将单元格范围复制为图片并将其作为图像粘贴到 powerpoint。这不应该是这种情况,因为粘贴的形状应该是可编辑的。我下面的代码请帮助。
{
Opening PPT and creating a new presentation
Set ppApp = New PowerPoint.Application
Set ppPres = ppApp.Presentations.Add
'Add and select new slide
Set ppSlide = ppPres.Slides.Add(1, ppLayoutBlank)
ppSlide.Select
'Copy range from excel sheet
Sheets("ToPPT").Range("rng_Picture").Copy
DoEvents
'Paste range as html
Set shp = ppSlide.Shapes.PasteSpecial(DataType:=ppPasteHTML)
With ppPres.PageSetup
shp.Width = .SlideWidth
shp.Height = .SlideHeight
End With
'adjust position in slide
ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignTops, msoTrue
ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignLefts, msoTrue
}
解决方案
在 Mac 上,这种情况下没有 PasteSpecial。您可以通过在 Mac 上编写代码行来检查这一点。我只使用了 PASTE 并将单元格放在那里 - 也许这已经足够好了,然后你可以进一步格式化它们。
推荐阅读
- typescript - 基于打字稿中的构造函数参数重载类属性
- python - 如何在 logging.conf 文件中将 TimedRotatingFileHandler 更改为模式“w”
- java - 将查询列表插入组合框的问题
- pyqt5 - 如何在 Arch Linux 上为 PyQt5 安装 QCustomPlot
- time - 如何转换计时`DateTime
`实例到`DateTime `? - javascript - ThreeJS:在盒子里放一盏灯以获得发光效果
- javascript - 如何使用 express js 以 html 形式发送电子邮件
- pyspark - 值列排序pyspark
- matlab - 计算法线方向的二进制线粗
- google-apps-script - 有没有办法在环聊聊天机器人的卡片内显示 base64 图像(不保存在谷歌驱动器中)?