TrippyTom
07-11-2006, 02:41 PM
I want to pass two values from a userform I created into a procedure I have to make a table. Based on this link: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbapp11/html/pphowSetControlPropertiesDynamic1_HV05194031.asp ... I think I'm close, but I'm missing something because the form isn't showing up.
Option Explicit
Public formCols As Integer
Public formRows As Integer
...
frm_myTable.Show
mySlide = ActiveWindow.View.Slide.SlideIndex
MsgBox ("Cols: " & formCols & ", Rows: " & formRows)
Set tb = ActivePresentation.Slides(mySlide).Shapes.AddTable(numRows:=formRows, NumColumns:=formCols, Left:=50, Top:=300, Width:=100, Height:=100)
...
Option Explicit
Public formCols As Integer
Public formRows As Integer
...
frm_myTable.Show
mySlide = ActiveWindow.View.Slide.SlideIndex
MsgBox ("Cols: " & formCols & ", Rows: " & formRows)
Set tb = ActivePresentation.Slides(mySlide).Shapes.AddTable(numRows:=formRows, NumColumns:=formCols, Left:=50, Top:=300, Width:=100, Height:=100)
...