Description: gridTopRatio = .Top/Me.Height
gridWidthRatio = .Width/Me.Width
gridHeightRatio = .Height/Me.Height
ReDim colWidthRatio(.Cols- 1)
ReDim rowHeightRatio(.Rows- 1)
For i = 0 To .Cols- 1
colWidthRatio(i) = .ColWidth(i)/Me.Width
Next i
For i = 0 To .Rows- 1
rowHeightRatio(i) = .RowHeight(i)/Me.Height
Next i
End With
End Sub
To Search:
File list (Check if you may need any files):
vb.doc
Download