Question

我想模拟右键单击另存为VB.NET for powerPoint 2013中的图片，

shape.export方法不适用于我，我认为这适用于旧版本的办公室，

任何提示？

Answer 1

复制并重命名pptx文件

 Dim file As String = "..........\Text_Boxes_Set_1.pptx"
        Dim copy As String = "......\test1copy.zip"

        If System.IO.File.Exists(file) = True Then
            System.IO.File.Copy(file, copy)
            MsgBox("file,coppied")
        End If

解压zip文件

 Dim sc As New Shell32.Shell()
        'Create directory in which you will unzip your files .
        IO.Directory.CreateDirectory(".....")
        'Declare the folder where the files will be extracted
        Dim output As Shell32.Folder = sc.NameSpace(".....")
        'Declare your input zip file as folder  .
        Dim input As Shell32.Folder = sc.NameSpace("........\test1copy.zip")
        'Extract the files from the zip file using the CopyHere command .
        output.CopyHere(input.Items, 4)

从解压缩的文件夹中获取图像文件

My.Computer.FileSystem.CopyDirectory("......\ppt\media", ".....\testimages1", True)

powerPoint 2013另存为图片

1 个答案: