向PPT粘贴图片和表格数据

Sub CopyPictureToPPT()Set ppt = New PowerPoint.Applicationppt.Presentations.Open "C:\Users\Administrator\Desktop\testforAutopadding\testForPicture.pptx", WithWindow:=msoFalse'插入图片'ppt.Presentations(1).Slides(1).Shapes(1).Fill.UserPicture ("C:\Users\Administrator\Desktop\testforAutopadding\" & "red.jpg")''ppt.Presentations(1).Slides(1).Shapes(2).Fill.UserPicture ("C:\Users\Administrator\Desktop\testforAutopadding\" & "blue.jpg")'插入表格数据'Dim oWs As Worksheet'新建工作表'Set oWs = ActiveWorkbook.Worksheets(1)'将当前活动工作簿的工作表1赋给oWs变量''将当前打开的Excel中的表格数据粘贴给PPT中的表格'With ppt.Presentations(1).Slides(2).Shapes(2).Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = oWs.Cells(1, 1)End With'保存PPT并关闭'With ppt.Presentations(1).SaveEnd WithSet oWs = nothingppt.QuitSet ppt = nothing
End Sub

VBA（一）操作PPT中的图片和表格相关推荐

通过poi操作ppt中的图片
//完整添加图片 public class MyFirstPPTTest {public static void main(String[] args) throws Exception{/** 文件 ...
Python提取PPT中的图片
一.前言今天要带大家实现的是PPT图片的提取.在我们学习工作中,PPT的使用还是非常频繁的,但是自己做PPT是很麻烦的,所以就需要用到别人的模板或者素材,这个时候提取PPT图片就可以减少我们很多工作 ...
java中图片排版,如何快速排版PPT中的图片？这样做真实而不失美感
如何快速排版PPT中的图片呢?大家都知道制作PPT会用到大量的图片,这样内容看起来才会丰富,可是图片一多,排版就成了一个大问题,想要制作一份精美的PPT文件,排版尤为重要. 图片太多不要慌乱,学会小编 ...
你会用PPT中的图片占位符吗？超级好用，不错的技能
在设计PPT的时候,或许大部分人都不离开图片的使用,不论是使用下载的素材还是自己设计的PPT,都有图片的存在. PPT中的图片能增加页面的设计感和场景感,比如下面这些案例中的图片使用. 但是,这时就会 ...
在 LaTeX 中调整图片和表格的位置
原文:Positioning images and tables 译者:Xovee 翻译时间:2020年10月30日在 LaTeX 中调整图片和表格的位置 LaTeX 的核心理念之一即是让你 ...
怎样在word2007中插入图片和表格
怎样在word2007中插入图片和表格 | 浏览: 284 | 更新: 2012-12-06 17:40 | 标签: word2007 1 有用+1 已投票 0 收藏+1 已收藏全文阅读分步阅读 ...
word 数组转指针_Word之VBA丨文档中的图片怎样批量加边框？
不称深度指南,只愿浅度指北很多时候,我们在 Word 中添加的图片,大部分都是类似下面这样"白底黑图"的: 如果图片内容是一段文字,就更加大了我们对文章的理解难度. 这时,我会给 ...
Word中给图片或表格自动编号
当我们在写报告时遇到文中图片很多的情况,调整文章内容或者增删文档时需要对图片进行重新编号,这个过程非常让人头大.因此,我们可以通过给图片或者表格自动标号的方式,减少重复工作量. 目录自动编号引用图 ...
VBA批量处理PPT中图片尺寸
遇到一个PPT里面有多张图片,想把图片处理成统一尺寸(即width和height一样),并且处于每张PPT上的同一位置(即left和top一样). Sub shapes_samesize()d = 2 ...

VBA（一）操作PPT中的图片和表格

文章目录

向PPT粘贴图片和表格数据

VBA（一）操作PPT中的图片和表格相关推荐

最新文章

热门文章