powerpoint-vba

1热度

3回答

我希望有人可以帮到.... 我有一个powerpoint演示文稿，它链接了excel文件中的表格和图形。幻灯片的更新设置为手动。我在Powerpoint中创建了一个打开excel文件的VBA代码。我试图通过VBA更新PowerPoint中的链接，而不是手动选择每个链接元素并更新值。虽然我的VBA代码的第一部分在打开excel文件时起作用，但链接并没有被更新，我认为这不是更新链接的重点，所以我试图

1热度

1回答

如何在VBA中创建递增计时器

我正在试图创建一个计数器，该计数器在Powerpoint演示文稿的VBA中每秒增加1。这是我到目前为止所提出的。 Sub countup() Dim index As Integer index = 0 Do Until index > 100 index = index + 1 DoEvents With ActivePresen

0热度

1回答

Powerpoint 2016文字透明度

我需要通过VBA设置文字的透明度，事实上，我需要为整个形状设置透明度，但这是我坚持使用的文字。我似乎无法浏览对象模型找到透明度物业 Function SetTransparency(Value As Single) On Error GoTo AbortNameShape If ActiveWindow.Selection.ShapeRange.Count = 0 Then Ms

0热度

1回答

运行时错误'438'

我知道有几个关于这个运行时错误'438'的帖子，但我仍然无法弄清楚如何解决这个问题。这是我的全部代码：https://pastebin.com/S6LigcWz但有问题的部分是这样的： With c.ChartData .Activate .Workbooks.Sheets(1).UsedRange.Clear .Workbooks.Sheets(1).Range(A

0热度

1回答

如何正确地在PowerPoint中使用

SetSourceData 所以我看到这个：https://msdn.microsoft.com/VBA/PowerPoint-VBA/articles/chart-setsourcedata-method-powerpoint，我已经使用了类似的东西： .Chart.SetSourceData _ Source:="='Sheet1'!$A$1:$D$5", _ PlotBy

0热度

1回答

广义形状分组宏宏VBA PowerPoint

我正在寻找写一个通用PowerPoint宏以将特定形状组合在一起。问题是我不知道具体的形状名称，因为我的幻灯片每次都会变化很小。这是我的情况：我有一个PowerPoint形状的集合，其名称以前缀“rc”开头。例如，它们可以是“rc48”，“rc49”，“rc50”，“rc51”。它们总是以增加的数字顺序，并且在幻灯片上只有“rc”命名的形状。遵循这些形状，我收集了带有前缀“tx”的形状（它们不是幻

-1热度

1回答

在Excel中使用PowerPoint变量（VBA）

我有一个PowerPoint演示文稿和一个Excel文件。在我的PPT我使用一个公共变量Public cnt As Long和以下两个函数添加到cnt或减去（为例）： Private Sub CommandButton1_Click() cnt = cnt + 1 Me.CommandButton3.Caption = "cnt up = " & cnt End Sub Private

0热度

1回答

联盟正在抓住我的选择之间的所有范围

这是整个代码，以防您想要查看它：https://pastebin.com/TbewRRCc。我的问题是，检查后，我的集合确实只包含我想要的列。所以，如果我有三列我想在那里，columnsToCopy.Count将= 3，当我只是复制columnToCopy（3）。复制结果将只是一列。但是当我通过循环来创建这三列的联合时，这些列之间的所有列也将在联合中。例如。假设我正在复制第1列，第13和第30列

0热度

1回答

在复制过程中混淆程序崩溃

有人可以帮我弄清楚为什么我的程序每次尝试运行时都会崩溃吗？崩溃似乎在任何我必须复制/粘贴线的情况发生，所以： ShRef.Range(ShRef.Cells(ShRef.Rows.Count, pCol).End(xlUp), ShRef.Cells(1, pCol)).Copy Destination:=ShWork.Columns(outCol) ShRef.Range(ShRef.Cells

0热度

1回答

“由于您的安全设置，无法找到宏或已被禁用。” PPAM加载项导致此错误从功能区但不是代码

我有一些VBA PPT宏以及自定义功能区接口。谁的宏从代码工作正常，但是当制作成ppam插件并添加到PPT插件时，一些命令会抛出此错误消息，但是该宏运行良好，只是想停止这些恼人的消息。 subs和函数都是Public，它仍然显示相同的错误。请帮助 Public Sub frmFeedNotes_show() frmFeedNotes.Show End Sub <!--RibbonX Vis