Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
With App.ActiveWindow.Selection
.SlideRange.Shapes.AddTable(intRows, intCols, sngLeft, sngTop, sngHeight, sngWidth).Select()
.ShapeRange.Width = sngWidth
.ShapeRange.Height = sngHeight
For y = 0 To dt.Rows.Count - 1
For z = 0 To dt.Columns.Count - 1
.ShapeRange.GroupItems(Index:=tot).TextFrame.TextRange.Characters(Start:=1, Length:=0).Select()
.TextRange.Characters(Start:=1, length:=0).Select()
.TextRange.Text = dt.Rows(y)(z)
.TextRange.Font.Name = strFontName
.TextRange.Font.Size = intFontSize
.TextRange.Font.Italic = intFontItalic
.TextRange.Font.Bold = intFontBold
.TextRange.Font.Color.RGB = RGB(intR, intG, intB)
if intAlignment > 0 Then
.TextRange.Paragraphs(1, 1).ParagraphFormat.Alignment = intAlignment
End If
tot = tot - 1
Next
Next