---

Hallo zusammen!

Habe ein kleines Problem und zwar habe ich ein Makro, was in einem Part alle Körper durchläuft und für jeden eine CheckBox auf einem Formular erstellt..

Soweit klappt das auch, allerdings setzt/ändert er die Beschriftung der CheckBox nicht (soll heißen wie der jeweilige Körper), er erstellt einfach CheckBoxen ohne Caption.. Was mache ich falsch??

Hier mal der Code:

Code:

---

Sub CATMain()

Dim Part As String
Part = (CATIA.FileSelectionBox("Part auswählen ", "*.CATPart", 0))

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Open(Part)

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim top As Integer

top = 20

For i = 1 To bodies1.Count
       
    Set NeueCheckbox = Makro_Form1.Controls.Add("Forms.CheckBox.1")
   
    With NeueCheckbox
   
        .Caption = bodies1.Item(i).Name
        .top = top + 15
        .Left = 10
        .Width = 12
        .Height = 12
   
    End With

    top = top + 15
   
Next

Makro_Form1.Show

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Tag,

ich habe dein beispiel zwar nur mit Excel prüfen können, aber schon dort viel ein Fehler auf.

Also die Breiten-Eigenschaft stellen Sie so klein, das man den Text schlicht nicht mehr sehen kann. Die Eigenschaft jedoch sehr wohl gesetzt wird. Zudem wurde auch die Höhe so gering eingestellt, das die Schrift eh abgeschnitten würde.

Hier mein TestCode in Excel. Nach ausdokumentieren der Breiten/Höhen-Eigenschaft ist die Beschriftung zu sehen.

Code:

---

For i = 1 To 5
    Set NeueCheckbox = UserForm1.Controls.Add("Forms.CheckBox.1")
    With NeueCheckbox
        .Caption = "Test(" & i & ")"
        .Top = 15 * i
        .Left = 10
        '.Width = 12
        '.Height = 12
    End With
Next
End Sub

---

mfg

gladly

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP