标签: powerpoint

我有代码可以将幻灯片导出为 PNG 文件，前提是它们满足特定条件（即幻灯片中具有特定的命名形状）。有时幻灯片没有任何已知的形状名称，但它们将位于命名的“部分”内。

我知道我必须以某种方式使用 ActivePresentation.SectionProperties，但我不确定如何去做。我已经按照下面的代码进行了尝试，但没有成功。在此示例中，该部分的名称是“Test”。将会有许多不同的部分，我需要对其中的几个部分执行此操作。任何帮助将非常感激。谢谢你！

Dim sld As Slide
i = 1

For Each sld in ActivePresentation.Slides

If ActivePresentation.SectionProperties.Name("Test") Then
   ActivePresentation.Slides(i).Export filenamepng & "TEST" & i & ".png", "PNG"
End If

i = i + 1

Next

我想获取 PowerPoint 中带有超链接的形状。

我将使用 pdf.js 将 powerpoint 显示为 pdf，并且需要在渲染的 pdf 上使用具有正确大小形状的覆盖 html 来附加超链接。

但如果我尝试使用该LinkFormat.SourceFullName方法，它会抛出错误

无效的请求

我已经用明确链接的图像和形状对其进行了测试。另外，我链接的形状的类型是 autoShapeTypes。

我使用 Office 356。我主要对演示文稿中幻灯片的链接感兴趣。我可以通过 pptSlide.Hyperlinks(i) 及其子地址访问它们，但是如何获得该链接的引用形状？

任何想法为什么形状不会显示为链接对象以及我如何能够从形状中获取链接？

Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
Dim i As Integer
dim linkstring as String

Dim hl As Hyperlink

'Set the variable to the PowerPoint Presentation
Set pptPresentation = ActivePresentation

'Loop through each slide in the presentation
For Each pptSlide In pptPresentation.Slides

    'Loop through each shape in each slide

    For …

我想将所选文本突出显示为某种颜色，但这不起作用。你能帮我吗？

Sub ShadingLtYellow()
    ActiveWindow.Selection.TextRange.HighlightColor.RGB = RGB(255, 255, 175)
End Sub

我还可以使用键盘快捷键（例如 Excel 上的应用程序键）触发宏吗？

这太好了

我想知道 Powerpoint 是否有一项功能，可以自动向显示章节和/或章节的每张幻灯片添加格式化标题。我正在展示我的论文，它分为几个部分，例如“方法”或“评估”，如果我可以在每张幻灯片的标题中自动显示它，我会很高兴。最好是从我的幻灯片部分自动获取。

我想要这个外观，我目前正在为每张幻灯片手动制作它。

python 或 php 中是否有解决方案可以让我从 Power Point 文件中的每张幻灯片中获取演示者注释？

谢谢

我正在寻找一些关于如何添加图像和文本并将其作为PowerPoint文件输出的示例代码.主机服务器没有Office,我不允许安装任何东西,因此"使用Open XML Format API操作Excel 2007和PowerPoint 2007文件"对我没有帮助.下面是输出PowerPoint的代码.我只是不知道要添加文字和图片.

    Response.ClearContent();
    Response.AddHeader("content-disposition", "attachment;filename=Filename.ppt");
    Response.ContentType = "application/powerpoint";
    System.IO.StringWriter sw = new System.IO.StringWriter();
    System.Web.UI.HtmlTextWriter htw = new System.Web.UI.HtmlTextWriter(sw);
    Response.Write(sw.ToString());
    Response.End();

我有一个包含200多个Powerpoint文件的文件夹,我一直在努力使用宏打开每个文件,编辑它们,保存它们并在循环中关闭它们.我已经设法为编辑部分创建代码,但是我无法创建一个代码来选择文件夹中的每个文件.使用"*.pptx"似乎不起作用,为每个文件编写具有特定文件名的代码效率非常低.

有人有解决方案吗？

Sub SaveNotesText()

Dim oPres As Presentation
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShapes As Shapes
Dim oSh As Shape
Dim NotesText As String
Dim FileNum As Integer
Dim PathSep As String

#If Mac Then
    PathSep = ":"
#Else
    PathSep = "\"
#End If

Set oPres = ActivePresentation
Set oSlides = oPres.Slides

For Each oSlide In oSlides
    NotesText = NotesText & "Slide " & oSlide.SlideIndex & vbCrLf
    Set oShapes = oSlide.NotesPage.Shapes
    For Each oSh …

我想在os x上的PPT文件中获取笔记文本.我觉得这应该工作:

get content of notes page of slide N of active presentation

但它总是会返回"缺失值".有什么想法吗？

顺便说一下,我的目标是能够创建一组幻灯片的新版本,其中笔记不包含文本STUDENT = HIDE ...我喜欢向学生提供幻灯片,但并不总是希望他们看到所有内容提前(例如,课堂练习的正确结果).

我有责任在Powerpoint VBA中进行颜色填充.当我选择线条和方框时,我只想更改线条并让方框保持颜色.有没有办法只改变私人形状？

$config = array(
            'upload_path' => 'resources/lectures',
            'allowed_types' => 'pdf|zip|doc|docx|ppt|pptx',
            'remove_spaces' => TRUE,
            'overwrite' => FALSE,
            'max_size' => 0,
        );

这是我用于文件上传的配置数组，除ppt和pptx之外，所有文件都可以正常上传。我使用display_errors（）方法检查了错误消息，并说“不允许您尝试上传的文件类型”。