标签: powerpoint-2013

在演示模式下，我只希望未隐藏的幻灯片以连续的页码显示。如何避免计算隐藏的幻灯片？

我有一个150张幻灯片的powerpoint演示文稿,我想根据公司的品牌重塑努力进行修改.我们以前的绿松石色已用于文字,线条,形状和形状填充.我想构建一个贯穿整个演示文稿的VBA脚本,并一举修改所有幻灯片,并用我们新的深灰色替换这种蓝色.

旧的企业颜色是RGB(0,176,240) - 绿松石

新的企业颜色是RGB(71,67,65) - 深灰色

我在互联网上尝试过多种不同的vba,但无法让它正常工作.以下是旧颜色的典型幻灯片的屏幕截图 - 所有蓝色项目都应更改为深灰色:

来自一个有用的论坛成员的这段VBA代码非常适合填充形状 - 如果可以重新设计包含任何文本和形状轮廓和线条,那么它将是完美的.

Sub ChangeShapeColor()

    Dim oSh As Shape
    Dim oSl As Slide

    ' Look at each slide in the current presentation:
    For Each oSl In ActivePresentation.Slides

        ' Look at each shape on each slide:
        For Each oSh In oSl.Shapes

            ' IF the shape's .Fill.ForeColor.RGB = turqoise color:
            If oSh.Fill.ForeColor.RGB = RGB(0, 176, 240) Then

                ' Change it to corporate dark grey:
            oSh.Fill.ForeColor.RGB = RGB(71, 67, 65)

            End If

        Next …

我认为这是一个容易找到答案的问题，但是令人惊讶的是我在谷歌搜索时遇到了死胡同。

我的问题是，我已将计算机中的视频嵌入Powerpoint（在Microsoft Office Professional Plus 2013中），并且希望它的运行速度超过1倍。我找不到任何选择。这是可以做到的吗？

如果不是，我唯一想到的选择就是尝试以某种方式编辑实际的视频剪辑（有人有没有推荐的免费软件？）。然后，我可以简单地嵌入加速视频。

提前致谢！

我创建 PowerPoint 的 OLE 实例并向其发送命令：

程序ExportSlide(const SlideIndex : Integer);
无功
  ppt：变体；
开始
  ppt := GetActiveOleObject('Powerpoint.Application');  
  ppt.ActivePresentation.Slides.Item(SlideIndex).Export('c:\test.png', 'PNG', 640, 480);
  ppt := 未分配；
结尾;

此代码适用于所有 PowerPoint 版本（2000、2002、2003、2007、2010）。

但是 PowerPoint 2013 有时会失去焦点。我们无法再使用键盘更改幻灯片。我们必须点击全屏幻灯片才能恢复焦点。

评论：这是 PowerPoint 2013 中的官方错误吗？
答案：任何修复或解决方法？

我想要一个文本框，其中第一行和后续文本行具有不同的格式，但它们必须在同一个文本框中。这就是我目前拥有的，它对所有文本应用相同的格式。

Sub geberateSlide() 
  ...
  With currSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
  Left:=0, Top:=0, Width:=headerWidth, Height:=headerHeight)
    .TextFrame.TextRange.Text = "Test Box" & vbCrLf & "Description"
    .TextFrame.AutoSize = ppAutoSizeNone
    .Height = headerHeight
    .Line.ForeColor.RGB = RGB(0,0,0)
    .Line.Visible = True
  End With
...
End Sub

文本应为 Arial 8。第 1 行应为黑色和粗体，而后续文本应为蓝色。

在 PowerPoint 2013 中，可以从 CommandBar 对象获取选择窗格属性，如下所示：

Application.CommandBars("Selection")

（请注意，对于 PowerPoint 2010 和 2007，名称为“选择和可见性”）

在 UI 中使用 Alt+F10 显示选择窗格时，以下两个属性将切换为 true：

Application.CommandBars("Selection").Visible
Application.CommandBars("Selection").Enabled

但是，当尝试以编程方式将这些设置为 true 时，.Visible=True 语句会导致发生未指定的自动化错误，并且 .Enabled=True 语句会执行，但不会更改此属性的状态。

但是，这是奇怪的部分，如果在 PowerPoint 首次运行时使用 Alt+F10 显示和隐藏选择窗格，那么这两行代码就可以工作！我检查了 Alt+F10 之前和之后的所有属性，只有 .Visible 和 .Enabled 属性被切换。

如何可靠且更好地显示选择窗格，而无需沿着 SendKeys 路线进行？

当我运行下面的代码时，我想在我的形状中填充 (255,168,0) 颜色，它会给我一个浅一点的蓝色。

   private void Shape_fill_Click(object sender, RibbonControlEventArgs e)
    {
        Color_palette.Visible = true;
         type = "Fill";           
    }

    private void btn_Orange_Click(object sender, RibbonControlEventArgs e)
    {
        if(type=="Fill")
        { 
        PowerPoint.Application ppApp = Globals.ThisAddIn.Application;
        PowerPoint.ShapeRange ppshr = ppApp.ActiveWindow.Selection.ShapeRange;
        ppshr.Fill.ForeColor.RGB = System.Drawing.Color.FromArgb(255,168,0).ToArgb(); 
        }

问题：除了浅蓝色之外，如何获得不同或变化的颜色？

不知何故,我丢失了PowerPoint中的故事板选项卡.我该如何恢复？谢谢.

我正在使用PowerPoint2010和PowerPoint2013