Posts

Es werden Posts vom August, 2017 angezeigt.

PowerPoint - Fusszeile - TextBox befüllen - alle Folien...

PowerPoint alle Folien - in der Fusszeile die Textbox befüllen.

PowerPoint all slides - fill the text box in the footer.

Hier noch eine Beispieldatei / Here's a sample file:
PowerPoint - Fusszeile - TextBox befüllen - alle Folien...[ZIP 50 KB]

OptionExplicit' Speichername der DateiConststrPPSaveAsString="EXCELnachPP"' anpassen!!!' Leeres Slide in PowerPointConstppLayoutBlankAsLong=12' Objektvariable für ApplikationDimobjPPAsObject'--------------------------------------------------------------------------' Module : Module1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 14.08.2017' Purpose : PowerPoint - Fusszeile - TextBox befüllen...'--------------------------------------------------------------------------PublicSubMain()' VariablendeklarationDimobjPPPresAsObjectDimobjPPDocAsObjectDimintLeftAsIntegerDimintTMPAsIntegerDimlngCalcAsLong' Wenn ein Fehler auftritt gehe zu der angegebenen SprungmarkeOn…