1

我一直在尝试找出在 Intranet 上显示电源点的最佳方式。公司的用户不会很技术，可能不会遵循我将描述的流程。

我找到了这个页面

其中显示了如何将电源点转换为可以查看的 html 页面。我想知道是否有某种方法可以自动化这个过程。例如一个文件观察者观察它将保存的位置，然后一旦看到它就会使用我提供的页面上提供的代码自动将其更改为 html。首选使用的语言是 VB.NET。

我很高兴人们可以提出任何建议。

提前致谢

4

2 回答 2

1

您可以尝试使用此代码 - 基于Microsoft.Office.Interop.PowerPoint.Application

您有代码示例以尝试功能

查看 Aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="AspNetPowerPointConvertToHTML.aspx.vb" Inherits="AspNetPowerPointConvertToHTML" %>  
<html>  
<head>  
<title>ShotDev.Com Tutorial</title>  
</head>  
<body>  
<form id="form1" runat="server">  
<asp:Label id="lblText" runat="server"></asp:Label>  
</form>  
</body>  
</html>

背后的代码

Imports Microsoft.Office.Interop.PowerPoint  
Public Class AspNetPowerPointConvertToHTML  
Inherits System.Web.UI.Page  

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  

Dim ppApp As New Microsoft.Office.Interop.PowerPoint.Application  
Dim ppName As String = "MySlides.ppt"  
Dim FileName As String = "MyPP/MyPPt"  

ppApp.Visible = True  

ppApp.Presentations.Open(Server.MapPath(ppName))  
ppApp.ActivePresentation.SaveAs(Server.MapPath(FileName), 13)  
ppApp.Quit()  
ppApp = Nothing  

Me.lblText.Text = "PowerPoint Created to Folder <strong> " & FileName & "</strong>"  

End Sub  
End Class
于 2012-09-28T15:38:18.703 回答
0

我用过：

Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

能够自动将电源点更改为 HTML。我已经使用文件观察器来观察我计算机上的一个目录，以便在它仅设置为 .pptx 的那一刻寻找 power point 演示文稿，但是我会尽快更改它以添加其他格式。该文件Water 位于计算机启动时启动的服务上。然后它会查看是否已创建或修改了 powerpoint 并运行以下代码：

Private Shared Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
    'set varaibles so that html can save in correct place
    Dim destinationDirectory As String = e.FullPath.Replace(e.Name.ToString(), "")
    Dim sourceLocation As String
    Dim fileName As String
    'couple of if statements to get rid of unwanted characters
    If e.Name.Contains("~$") Then
        fileName = e.Name.Replace("~$", "")
        fileName = fileName.Replace(".pptx", ".html")
    Else
        fileName = e.Name
        fileName = fileName.Replace(".pptx", ".html")
    End If

    If e.FullPath.Contains(("~$")) Then
        sourceLocation = e.FullPath.Replace("~$", "")
    Else
        sourceLocation = e.FullPath
    End If

    Dim strSourceFile As String = sourceLocation 'set source location after removing unwanted characters
    Dim strDestinationFile As String = destinationDirectory & fileName 'set the destination location with the directory and file name
    'set ppAPP to a power point application
    Dim ppApp As PowerPoint.Application = New PowerPoint.Application
    Dim prsPres As PowerPoint.Presentation = ppApp.Presentations.Open(strSourceFile, MsoTriState.msoTrue, MsoTriState.msoFalse, MsoTriState.msoFalse)
    'Call the SaveAs method of Presentaion object and specify the format as HTML
    prsPres.SaveAs(strDestinationFile, PowerPoint.PpSaveAsFileType.ppSaveAsHTML, MsoTriState.msoTrue)
    'Close the Presentation object
    prsPres.Close()
    'Close the Application object
    ppApp.Quit()

End Sub

这将获取已修改的文件并将其保存为 html 文档。它还将获取运行所需的文件，因此如果保存了任何动画，它也会保留这些文件。

于 2012-10-01T10:40:50.877 回答