1

私は、パワーポイントをイントラネットに表示するための最良の方法を模索してきました。会社のユーザーはあまり技術的ではなく、私が説明するプロセスに従わない可能性があります。

このページを見つけました

これは、パワーポイントを表示可能な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にのみ設定されているパワーポイントのプレゼンテーションを探していますが、これを変更して他の形式をすぐに追加します。このfileWaterは、コンピューターが起動したときに起動するサービス上にあります。次に、パワーポイントが作成または変更されているかどうかを確認し、次のコードを実行します。

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 に答える