Tag: 幻灯片

抓取Excel超链接并插入PowerPoint表格

我正在跟进两个问题( Here & Here ),这个问题是关于使用VBA从Excel获取超链接并将其插入到PowerPoint中的问题。 下面是我有的代码 – 我已经试过调整它,但我不能让它把超链接放入单元格,并显示文本,因为它永远不会超过这一点: .Address = getAddress 代码中断与此错误消息: “运行时错误'438':对象不支持此属性或方法。 我很抱歉,如果这是一个rehash。 任何帮助,将不胜感激。 Option Explicit Sub PPTableMacro() Dim oPPTApp As PowerPoint.Application Dim oPPTShape As PowerPoint.Shape Dim oPPTFile As PowerPoint.Presentation Dim SlideNum As Integer Dim strPresPath As String Dim strExcelFilePath As String Dim getAddress As Hyperlink strPresPath = "C:\Somewhere…\Presentation.pptm" Set oPPTApp = CreateObject("PowerPoint.Application") oPPTApp.Visible […]

Excel中的Powerpoint – 链接的图表不会自动更新path

我正在更新一个工具,使用户能够用一些数据做一些基本的时间序列分析。 从下拉列表中select不同的时间序列时,会自动更新一系列图表。 插入到Excel电子表格中的是一个PowerPoint演示文稿,该演示文稿先前已链接到Excel电子表格中的图表,以便根据Excel进行更新。 这是我很难更新。 我在Excel中复制graphics,然后在PowerPoint中进行select性粘贴 – >粘贴链接 – > Microsoft Excel图表对象。 这工作正常,直到我尝试移动文件或更改文件名。 不链接到PowerPoint文件插入的文件,而是保持链接graphics中的完整文件path,并继续指向发生链接的原始文件。 我想要做的就是继续查看PowerPoint文件插入到的文件的位置。 embedded不是一个选项,因为有很多图,这导致文件开始推200mb我相信(虽然我是开放的挑战这一点)。 他们肯定似乎去年工作,但他们正在使用Excel 2003.我想知道如果Excel 2013的行为不同,这是我的问题。 关于这一点的最后一个要求,由于我工作的组织的规则,VBA是一个禁忌。 我感觉到解决scheme非常简单,或者我要求一根棍子上的月亮。 谢谢。

如何获得types文件,如果条件使用yii框架

我有项目预览PowerPoint演示文稿或Excel文件。 这是我的代码 <?php /* * To change this license header, choose License Headers in Project Properties. * To change this template file, choose Tools | Templates * and open the template in the editor. */ if (count($dataJadwal) > 0) { // get a reference to the path of PHPExcel classes $phpExcelPath = Yii::getPathOfAlias('ext.phpexcel.Classes.PHPExcel'); // Turn […]

使用VBA将图表的图例复制到Powerpoint

我使用创build幻灯片的Excel脚本。 在幻灯片上,我想显示图表的图例,但不显示图表的其余部分。 这是我的代码摘录: With Sheets("data") Set bereich = Range(.Cells(Daty + 1, 3), .Cells(Daty + 2 + UBound(SubCategories), Datx + UBound(anzahl, 1))) Set dia = .ChartObjects.Add(10, 800, 650, 400) .ChartObjects(dia.Name).Activate dia.Name = "ideaspersubcatstatus" .Shapes(dia.Name).Left = Range(.Cells(intSubCat + 3, 1), .Cells(intSubCat + 3, 1)).Left .Shapes(dia.Name).Top = Range(.Cells(intSubCat + 3, 1), .Cells(intSubCat + 3, 1)).Top End With With […]

将超链接存储在dynamic范围内?

所以我有一个大的PowerPoint演示文稿,我使用下面的代码来修改演示文稿中的所有超链接的一部分(删除部分文件path使用相对而不是绝对引用): Dim oSl As Slide Dim oHl As Hyperlink Dim sSearchFor As String Dim sReplaceWith As String Dim oSh As Shape sSearchFor = InputBox("What text should I search for?", "Search for …") If sSearchFor = "" Then Exit Sub End If sReplaceWith = InputBox("What text should I replace" & vbCrLf _ & sSearchFor & vbCrLf […]

powerpoint打破链接通过excel vba

我正尝试使用VBA脚本通过Excel更新embedded式图表的PowerPoint演示文稿。 这与我的代码正常工作。 问题是,我也希望 – 图表更新后 – 打破/删除链接到Excle工作表。 代码示例显示我的代码还与不工作的行。 任何build议或解决scheme将不胜感激! Function RefreshPPT() Set PPT = CreateObject("PowerPoint.Application") PPT.Visible = True PPT.Presentations.Open "Name.pptx", Untitled:=msoTrue PPT.ActivePresentation.UpdateLinks PPT.ActivePresentation.BreakLinks —— this line doesn´t work PPT.ActivePresentation.SaveAs Filename:="Name2.pptx" PPT.Quit Set PPT = Nothing End Function