Excel Table to Powerpoint Slides - Versionsgeschichte

Thomas: /* Custom Ribbon */

2018-12-15T23:33:14Z

Custom Ribbon

← Nächstältere Version		Version vom 15. Dezember 2018, 23:33 Uhr
Zeile 318:		Zeile 318:
	== Custom Ribbon ==		== Custom Ribbon ==

	Um die Makros über Buttons in einem Ribbon aufrufen zu können, muss die Datei cutomUI.xml in der PPTM im Ornder customUI ~~gespecihert~~ werden. Dies geht am besten über 7z (oder einem anderen Packer).		Um die Makros über Buttons in einem Ribbon aufrufen zu können, muss die Datei cutomUI.xml in der PPTM im Ornder customUI gespeichert werden. Dies geht am besten über 7z (oder einem anderen Packer).

	[[Datei:Excel2ppt-ribbon.png]]		[[Datei:Excel2ppt-ribbon.png]]
Zeile 347:		Zeile 347:

	<pre>		<pre>
	<Relationship Id="~~rId9~~" Type="http://schemas.~~openxmlformats~~.~~org~~/~~officeDocument~~/2006/relationships/~~custom-properties~~" Target="~~docProps~~/~~custom~~.xml"/>		<Relationship Id="rId5" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
	</pre>		</pre>

Thomas: /* Custom Ribbon */ Tippfehler

2018-04-24T06:03:33Z

Custom Ribbon: Tippfehler

← Nächstältere Version		Version vom 24. April 2018, 06:03 Uhr
Zeile 330:		Zeile 330:
	<button id="myCreateLayout" visible="true" size="large" label="Create Layout" imageMso="SlideLayoutGallery" onAction="CreateLayoutFromExcel"		<button id="myCreateLayout" visible="true" size="large" label="Create Layout" imageMso="SlideLayoutGallery" onAction="CreateLayoutFromExcel"
	screentip="Layout erstellen"		screentip="Layout erstellen"
	supertip="Erstellt ein Layout aus den ~~Wspalten~~ der ersten Tabelle einer Excel-Datei. Beschriftungen aus der ersten Zeile."		supertip="Erstellt ein Layout aus den Spalten der ersten Tabelle einer Excel-Datei. Beschriftungen aus der ersten Zeile."
	/>		/>
	<button id="myCreateSlides" visible="true" size="large" label="Create Slides" imageMso="SlideNewGallery" onAction="CreateSlidesFromExcel"		<button id="myCreateSlides" visible="true" size="large" label="Create Slides" imageMso="SlideNewGallery" onAction="CreateSlidesFromExcel"

Thomas: /* Visual Basic Makros */ Checking if CustomDocumentProperty("ExcelFileName") exists.

2018-04-24T05:35:58Z

Visual Basic Makros: Checking if CustomDocumentProperty("ExcelFileName") exists.

← Nächstältere Version		Version vom 24. April 2018, 05:35 Uhr
Zeile 94:		Zeile 94:
	MyLayout.Preserved = True		MyLayout.Preserved = True

	Set AddCustomLayout = MyLayout		Set AddCustomLayout = MyLayout

	End Function		End Function
Zeile 116:		Zeile 116:

	For i = 1 To lastColumn		For i = 1 To lastColumn
	With MyLayout.Shapes.AddShape(Type:=msoShapeRectangle, Left:=50, Top:=(i + 2) * 40, Width:=160, Height:=24)		With MyLayout.Shapes.AddShape(Type:=msoShapeRectangle, Left:=50, Top:=(i + 2) * 40, Width:=160, Height:=24)
	.Fill.BackColor.RGB = RGB(160, 240, 255)		.Fill.BackColor.RGB = RGB(160, 240, 255)
	.TextFrame.TextRange.Font.Size = 16		.TextFrame.TextRange.Font.Size = 16
	.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse		.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse
Zeile 144:		Zeile 144:
	For i = 1 To lastColumn		For i = 1 To lastColumn
	With MyLayout.Shapes.AddPlaceholder(Type:=ppPlaceholderBody, Left:=250, Top:=(i + 2) * 40, Width:=400, Height:=32)		With MyLayout.Shapes.AddPlaceholder(Type:=ppPlaceholderBody, Left:=250, Top:=(i + 2) * 40, Width:=400, Height:=32)
	.Fill.BackColor.RGB = RGB(240, 240, 240)		.Fill.BackColor.RGB = RGB(240, 240, 240)
	.TextFrame.TextRange.Font.Size = 24		.TextFrame.TextRange.Font.Size = 24
	.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse		.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse
Zeile 172:		Zeile 172:
	ExcelFileName = FileSelected		ExcelFileName = FileSelected

			If Application.ActivePresentation.CustomDocumentProperties("ExcelFileName") <> "" Then
	~~With~~ Application.ActivePresentation.CustomDocumentProperties		Application.ActivePresentation.CustomDocumentProperties("ExcelFileName").Value = ExcelFileName
	.Add _		Else
	Name:="ExcelFileName", _		With ActivePresentation.CustomDocumentProperties
	LinkToContent:=False, _		.Add Name:="ExcelFileName", _
	Type:=msoPropertyTypeString, _		LinkToContent:=False, _
	Value:=ExcelFileName		Type:=msoPropertyTypeString, _
			Value:=ExcelFileName
	End With		End With
			End If

	If ExcelFileName <> "" Then		If ExcelFileName <> "" Then

Thomas: /* Visual Basic Makros */ u.a. Formatierung des Codes

2018-03-16T06:40:31Z

Visual Basic Makros: u.a. Formatierung des Codes

← Nächstältere Version		Version vom 16. März 2018, 06:40 Uhr
Zeile 18:		Zeile 18:

	== Visual Basic Makros ==		== Visual Basic Makros ==

			Folgendes VB Makro ist im MS Visual Basic for Applications zu erzeugen. Der Modulname spielt keine Rolle, sollte aber sprechend gewählt werden.

	<pre>		<pre>
Zeile 92:		Zeile 94:
	MyLayout.Preserved = True		MyLayout.Preserved = True

	Set AddCustomLayout = MyLayout		Set AddCustomLayout = MyLayout

	End Function		End Function
Zeile 114:		Zeile 116:

	For i = 1 To lastColumn		For i = 1 To lastColumn
	With MyLayout.Shapes.AddShape(Type:=msoShapeRectangle, Left:=50, Top:=(i + 2) * 40, Width:=160, Height:=24)		With MyLayout.Shapes.AddShape(Type:=msoShapeRectangle, Left:=50, Top:=(i + 2) * 40, Width:=160, Height:=24)
	.Fill.BackColor.RGB = RGB(160, 240, 255)		.Fill.BackColor.RGB = RGB(160, 240, 255)
	.TextFrame.TextRange.Font.Size = 16		.TextFrame.TextRange.Font.Size = 16
	.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse		.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse
Zeile 142:		Zeile 144:
	For i = 1 To lastColumn		For i = 1 To lastColumn
	With MyLayout.Shapes.AddPlaceholder(Type:=ppPlaceholderBody, Left:=250, Top:=(i + 2) * 40, Width:=400, Height:=32)		With MyLayout.Shapes.AddPlaceholder(Type:=ppPlaceholderBody, Left:=250, Top:=(i + 2) * 40, Width:=400, Height:=32)
	.Fill.BackColor.RGB = RGB(240, 240, 240)		.Fill.BackColor.RGB = RGB(240, 240, 240)
	.TextFrame.TextRange.Font.Size = 24		.TextFrame.TextRange.Font.Size = 24
	.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse		.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse
Zeile 172:		Zeile 174:

	With Application.ActivePresentation.CustomDocumentProperties		With Application.ActivePresentation.CustomDocumentProperties
	.Add Name:="ExcelFileName", _		.Add _
	LinkToContent:=False, _		Name:="ExcelFileName", _
	Type:=msoPropertyTypeString, _		LinkToContent:=False, _
	Value:=ExcelFileName		Type:=msoPropertyTypeString, _
			Value:=ExcelFileName
	End With		End With

Thomas: /* Custom Ribbon */

2018-03-13T13:54:27Z

Custom Ribbon

← Nächstältere Version		Version vom 13. März 2018, 13:54 Uhr
Zeile 314:		Zeile 314:

	Um die Makros über Buttons in einem Ribbon aufrufen zu können, muss die Datei cutomUI.xml in der PPTM im Ornder customUI gespecihert werden. Dies geht am besten über 7z (oder einem anderen Packer).		Um die Makros über Buttons in einem Ribbon aufrufen zu können, muss die Datei cutomUI.xml in der PPTM im Ornder customUI gespecihert werden. Dies geht am besten über 7z (oder einem anderen Packer).

			[[Datei:Excel2ppt-ribbon.png]]

	<pre>		<pre>

Thomas: /* Custom Ribbon */ Erstellt

2018-03-13T13:49:00Z

Custom Ribbon: Erstellt

@@ Zeile 312: / Zeile 312: @@
 == Custom Ribbon ==
 <pre>
@@ Zeile 333: / Zeile 335: @@
 </ribbon>
 </customUI>
 </pre>

Thomas am 13. März 2018 um 13:38 Uhr

2018-03-13T13:38:58Z

← Nächstältere Version		Version vom 13. März 2018, 13:38 Uhr
Zeile 309:		Zeile 309:

	End Sub		End Sub
			</pre>

			== Custom Ribbon ==

			<pre>
			<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
			<ribbon>
			<tabs>
			<tab id="mxExcelTools" label="Excel Tools">
			<group id="customGroup1" label="Excel to PowerPoint">
			<button id="myCreateLayout" visible="true" size="large" label="Create Layout" imageMso="SlideLayoutGallery" onAction="CreateLayoutFromExcel"
			screentip="Layout erstellen"
			supertip="Erstellt ein Layout aus den Wspalten der ersten Tabelle einer Excel-Datei. Beschriftungen aus der ersten Zeile."
			/>
			<button id="myCreateSlides" visible="true" size="large" label="Create Slides" imageMso="SlideNewGallery" onAction="CreateSlidesFromExcel"
			screentip="Folien erstellen"
			supertip="Erstellt Folien aus den Zeilen aus der ersten Tabelle einer Excel-Datei"

			/>
			</group>
			</tab>
			</tabs>
			</ribbon>
			</customUI>
	</pre>		</pre>

Thomas: /* Musterfolie */ Makro überarbeitete

2018-03-13T13:36:53Z

Musterfolie: Makro überarbeitete

← Nächstältere Version		Version vom 13. März 2018, 13:36 Uhr
Zeile 17:		Zeile 17:
	[[Datei:Musterfolie.png]]		[[Datei:Musterfolie.png]]

			== Visual Basic Makros ==

			<pre>
	Option Explicit		Option Explicit
	' Optionen und Konstanten		' Optionen und Konstanten
Zeile 307:		Zeile 309:

	End Sub		End Sub
			</pre>

Thomas: /* PowerPoint Makro */

2018-03-13T13:34:46Z

PowerPoint Makro

Änderungen zeigen

Thomas: /* Vorgehen */

2018-03-08T11:38:36Z

Vorgehen

← Nächstältere Version		Version vom 8. März 2018, 11:38 Uhr
Zeile 7:		Zeile 7:

	* Erstellen einer neuen PowerPoint-Präsentation		* Erstellen einer neuen PowerPoint-Präsentation
	* Anlegen einer Folie mit doppelt so vielen Platzhaltern für die Zellenwerte der Tabelle, wie die Tabelle Spalten besitzt.		* Das Makro mit Hilfe der Entwicklertools in die Präsentation einfügen und starten.
	* Das Makro mit Hilfe der Entwicklertools in die Präsentation einfügen und starten. ~~Die erste Hälfte~~ der ~~Platzhalter wird durch das~~ Makro ~~mit den Spaltenüberschriften (Zeile 1)~~ der Tabelle ~~gefüllt. Diese Platzhalter dienen als Label. Die zweite Hälfte wird mit den Zellwerten jeweils einer Zeile gefüllt.~~		** Makro CreateLayoutFromExcel ausführen, um ein CustomLayout aus der ersten Tabelle der Excel-Datei zu erzeugen
			** Makro CreateSlidesFromExcel ausführen, um die Slides aus der ersten Tabelle der Excel-Dateizu erstellen
	* Anschließend kann die Layout-Folie verschönert werden. Die Änderungen der Layout-Folie werden für alle Folien übernommen, so dass die Folien einheitlich gestaltet sind.		* Anschließend kann die Layout-Folie verschönert werden. Die Änderungen der Layout-Folie werden für alle Folien übernommen, so dass die Folien einheitlich gestaltet sind.
	* Bei Änderungen der Excel-Tabelle ~~werden~~ alle Folien gelöscht und mit dem Makro neu erstellt.		* Bei Änderungen der Excel-Tabelle müssen noch alle Folien gelöscht und mit dem Makro neu erstellt werden.

	== Musterfolie ==		== Musterfolie ==