Question

我创建了一个从系统中选择PPT文件的代码。但这是一个硬代码。如何创建全局代码而不是硬编码？我的代码如下：

Sub PPTTest()
  Dim PPT As Object

  Set PPT = CreateObject("PowerPoint.Application")

  PPT.Presentations.Open "D:\Us\70\Desktop\Shaon\BOD.pptx", , , False

  ' Note that the file name and the module
  ' name are required to path the macro correctly.
  PPT.Run "BOD.pptx!Module1.KillSpecificSlide"

 End Sub

如何全局选择？

Answer 1

以下是从我的一个Excel宏中摘录的（竞争）示例：

#include <stdio.h>

int main() {
    int n, sum, prod, a, b;

    printf("Enter a number: \n");

    if (scanf("%d", &n) != 1)
        return 1;

    a = n;
    sum = 0;
    while (a != 0) {
        sum = sum + a % 10;
        a = a / 10;
    }

    b = n;
    prod = 1;
    while (b != 0) {
        prod = prod * (b % 10);
        b = b / 10;
    }

    printf("Sum=%d\nProd=%d\n", sum, prod);

    return 0;
}

Dim fldr As FileDialog Dim sItem As String Set fldr = Application.FileDialog(msoFileDialogOpen) With fldr .Title = "Select a File" .AllowMultiSelect = False .InitialFileName = "" If .Show <> -1 Then Exit Sub sItem = .SelectedItems(1) End With Set fldr = Nothing现在包含所选项目。在您的sItem通话中使用它。

注意：此代码仍必须在MS-Office文件中（word，ppt，excel）。要使这样的宏“全局”，它必须在启动模板中。

您可以在“ Excel选项”，“信任中心”，“信任中心设置”下找到或更改包含启动模板的启动位置（在excel中，但也可能在ppt中）。

使用VBA全局选择任何PPT文件

1 个答案: