|
Hmm, nun ja, die Rückmeldungen sind bis dati ausgeblieben. Hier mein zwischenzeitlicher VBA-Problemlösungsansatz:
Sub Formatting_table()
Dim s As Slide
Dim oSh As Shape
Dim oTbl As Table
Dim lRow As Long
Dim lCol As Long
For Each s In ActivePresentation.Slides
' If you choose Debug | Compile, this next line fails
' There's no such property as .Table
' With s.Shapes.Table
For Each oSh In s.Shapes
If oSh.HasTable Then
Set oTbl = oSh.Table
For lRow = 1 To oTbl.Rows.Count
For Rows = 1 To oTbl.Rows.Count
For lCol = 1 To oTbl.Columns.Count
With oTbl.Rows(Rows)
.Height = 18
End With
Next
Next
Next
End If
Next ' Select.RowHeight.AutoFit
Next s
For Each s In ActivePresentation.Slides
' If you choose Debug | Compile, this next line fails
' There's no such property as .Table
' With s.Shapes.Table
For Each oSh In s.Shapes
If oSh.HasTable Then
Set oTbl = oSh.Table
For lRow = 1 To oTbl.Rows.Count
For lCol = 1 To oTbl.Columns.Count
With oTbl.Cell(lRow, lCol).Shape.TextFrame
.MarginBottom = 2
.MarginLeft = 0
.MarginRight = 0
.MarginTop = 2
End With
Next
Next
End If
Next ' Shape
Next s
End Sub
|