La conversion de PPT to SVG à l'aide de Microsoft Office 2010 PIA

Il n'y a pas hors-the-shelf automatique des convertisseurs de ce que je connais, mais j'ai eu du succès dans l'économie de chaque diapositive au format PDF dans Powerpoint, puis d'ouvrir le fichier PDF dans Inkscape et de réenregistrer comme SVG. Powerpoint de PDF d'exportation et d'Inkscape PDF importation sont très sophistiqués et de produire de bons résultats, et SVG Inkscape est natif du format d'enregistrement, mais quelques ajustements de la PDF importé dans Inkscape peut être nécessaire à la reproduction de certains éléments à l'origine, précisément.

Il peut-être fait une différence que j'ai Adobe Acrobat installé, mais je n'ai pas utilisé l'option "Save as Adobe PDF" plugin, juste de l'ordinaire "Enregistrer sous" boîte de dialogue. À l'aide de Save as Adobe PDF produit des résultats inférieurs.

OriginalL'auteur D Coetzee

C'est de cette façon que je suis en train de faire (sans Bureau PIA).

1. Exécuter une macro à diviser le PPTX en autant de fichiers PDF des diapositives de la présentation.
2. Utiliser inkscape pour convertir l'ensemble des PDF au format SVG

Macro VBA

Sub ExportAllSlidesInPDF()
Dim SourceView, answer As Integer
Dim SourceSlides, NumPres, x As Long
Dim ThisSlideFileNamePDF As String
NumPres = Presentations.Count
If NumPres = 0 Then
MsgBox "No Presentation Open", vbCritical, vbOKOnly, "No Presentations Open"
End If
SourceView = ActiveWindow.ViewType
SourceSlides = ActivePresentation.Slides.Count
For x = 1 To SourceSlides
Presentations.Add
With ActivePresentation.PageSetup
.SlideHeight = Presentations(1).PageSetup.SlideHeight
.SlideWidth = Presentations(1).PageSetup.SlideWidth
End With
If ActiveWindow.ViewType <> ppViewSlide Then
ActiveWindow.ViewType = ppViewSlide
End If
Presentations(1).Windows(1).Activate
If ActiveWindow.ViewType <> ppViewSlideSorter Then
ActiveWindow.ViewType = ppViewSlideSorter
End If
ActivePresentation.Slides.Range(Array(x)).Select
ActiveWindow.Selection.Copy
Presentations(2).Windows(1).Activate
If ActiveWindow.ViewType <> ppViewSlide Then
ActiveWindow.ViewType = ppViewSlide
End If
ActiveWindow.View.Paste
ActiveWindow.Selection.Unselect
ThisSlideFileNamePDF = "Slide_" & x & ".pdf"
ActivePresentation.SaveAs ThisSlideFileNamePDF, ppSaveAsPDF
ActivePresentation.Close
Presentations(1).Windows(1).Activate
Next x
ActiveWindow.ViewType = SourceView
End Sub

Ce qui peut être amélioré (par exemple, les boîtes de dialogue, plus de contrôles, d'y ajouter comme addin), mais ici il est, en principe.

inkscape étape

Seul-liner pour une Linux box:

for file in *.pdf; do inkscape --without-gui "--file=$file" "--export-plain-svg=${file%%.*}.svg"; done

OriginalL'auteur Alain Pannetier

Cela va être assez difficile, il n'y a aucun moyen direct de le faire autant que je sache (corrigez-moi si je me trompe!) - le plus simple serait d'Impression XPS, puis de convertir le code XAML (XPS == XAML + fichier Zip) à un fichier SVG; ce n'est pas facile ni simple, mais la mise en correspondance entre XAML => SVG est probablement beaucoup plus proche.

OriginalL'auteur Paul Betts

Sur Mac OSX, il n'est pas optimisé pour être utilisé en ligne de commande [1], de sorte que vous devez ajouter un chemin d'accès absolu à vos fichiers:

for file in *.pdf; do inkscape --without-gui "--file=${PWD}/${file}" "--export-plain-svg=${PWD}/${file%%.*}.svg"; done

Sinon, vous obtenez ce message d'erreur:

** Message: impossible d'ouvrir le fichier PDF.

** (inkscape-bin:13267): WARNING **: impossible d'ouvrir le fichier: monfichier.pdf (n'existe pas)

** (inkscape-bin:13267): WARNING **: document Spécifié myfile.pdf ne peut pas être ouvert (n'existe pas ou n'est pas valide fichier SVG)

[1] Inkscape sur OSX ne peut pas ouvrir le fichier PDF à l'aide de terminal de commande

OriginalL'auteur miller