AW: Userform etc. alle Eigenschaften auflisten
13.11.2015 18:45:26
Tino
Hallo,
ich glaube nicht dass es da etwas gibt, weil für was dies gut sein soll?
Als Ansatz: (Zugriff auf VBA Projekte muss zugelassen werden)
Nicht ausgiebig getestet!
Sub Beispiel()
Dim n&, nn&, sCode$, ArData(), oObj, tmpCode
With Tabelle1
.UsedRange.EntireRow.Delete
.Range("A1") = "Name"
.Range("B1") = "Left Pos"
.Range("C1") = "Top Pos"
.Range("D1") = "Code"
.Rows(1).Font.Bold = True
.Rows(1).HorizontalAlignment = xlCenter
End With
With ThisWorkbook.VBProject
For n = 1 To .VBComponents.Count
If .VBComponents(n).Type = vbext_ct_MSForm Then
With .VBComponents(n)
With .CodeModule
sCode = .Lines(1, .CountOfLines)
End With
Redim Preserve ArData(1 To .Designer.Controls.Count + 1, 1 To 3)
nn = nn + 1
ArData(nn, 1) = .Name
For Each oObj In .Designer.Controls
nn = nn + 1
ArData(nn, 1) = oObj.Name
ArData(nn, 2) = oObj.Left
ArData(nn, 3) = oObj.Top
Next
End With
End If
If nn > 0 Then
With Tabelle1
With .Rows(.UsedRange.Rows.Count + 2)
.Cells(1, 1).Resize(Ubound(ArData), Ubound(ArData, 2)) = ArData
tmpCode = Application.Transpose(Split(sCode, vbCrLf))
.Cells(1, 4).Resize(Ubound(tmpCode)) = tmpCode
End With
End With
End If
nn = 0
Erase ArData
sCode = ""
Next n
End With
Tabelle1.UsedRange.EntireColumn.AutoFit
End Sub
Gruß Tino