0

我正在尝试为一家公司进行 Powerpoint 测验，该公司将在其网络驱动器上共享它，每个人都应该可以访问。

这个想法是每个员工都可以参加测验，在回答完所有问题后，分数将保存到最后一张幻灯片，并列出当前员工的所有分数。

我已经知道如何将测验作为其中的一部分，但我还没有找到一个教程如何进行保存 - 将分数添加到最后一张幻灯片的列表并保存文件。

这是可行的吗？是否可以更新网络驱动器中的文件，使用 VBA 保存，以便下一个打开文件的人将看到最后一张幻灯片上的所有分数？

我首先想到的是自动通过电子邮件发送结果，但后来发现这是不可能的。

有没有Windows和Mac用户有关系吗（不知道有没有mac用户）？

提前致谢

4

1 回答 1

2

首先，您需要确保一次只有一个用户打开演示文稿。或者想办法将演示文稿的副本分发给每个用户，并让每个副本将分数写入网络上的公共文件。

我还没有找到一个如何保存的教程——将分数添加到最后一张幻灯片的列表中并保存文件。

要保存文件，请调用 Presentation 的 .Save 方法

ActivePresentation.Save

要将文本框和文本添加到演示文稿的最后一张幻灯片，如下所示：

Dim oSl As Slide
Dim oSh As Shape

Set oSl = ActivePresentation.Slides(ActivePresentation.Slides.Count)
Set oSh = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 500, 200)
With oSh.TextFrame.TextRange
    .Text = "YOUR SCORE HERE"
End With

或者，如果您已经添加了形状并想要更改文本：

Dim oSh As Shape

With ActivePresentation.Slides(ActivePresentation.Slides.Count)
    Set oSh = .Shapes("ShapeName")  ' substitute the actual shape name
    With oSh.TextFrame.TextRange
        .Text = "YOUR SCORE HERE"
    End With
End With    ' Last Slide
于 2013-09-13T15:05:23.600 回答