Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Objekte in UserForm kreisförmig per VBA anordnen

Objekte in UserForm kreisförmig per VBA anordnen
04.08.2016 10:43:46
Rosenfeld
Hallo zusammen,
ich möchte in einer UserForm Objekte (Steuerelemente) kreisförmig (gleichmäßige Winkel von 30°, 60°, 90° ... 360°) per VBA anordnen bzw. umordnen.
Hat jemand eine Lösung?
Im Moment bastel ich mehr herum als dass ich das programmieren nennen könnte.
Gruß
Siegfried
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Objekte in UserForm kreisförmig per VBA anordnen
04.08.2016 12:40:12
baschti007
Nun Ja rechnen hatte jeder ja mal in der Schule =D (Polarkoordinatensystem x,y)
Ich würde es so Machen.
Gruß Basti
Private Sub UserForm_Initialize()
Dim objTextBox As MSForms.CheckBox
Radius = 60
Winkeldrehung = 30
maxtb = 360 / Winkeldrehung
MittelPunktLeft = 75
MittelPunktTop = 75
i = 1
For q = 1 To maxtb
y = Radius * Sin(winkel / 180 * Application.pi)
x = Radius * Cos(winkel / 180 * Application.pi)
Set objTextBox = Me.Controls.Add( _
"Forms.CheckBox.1", "txtDemo1", True)
With objTextBox
.Left = MittelPunktLeft + x
.Top = MittelPunktTop + y
.Caption = i
.AutoSize = True
End With
winkel = winkel + Winkeldrehung
i = i + 1
Next
Set objTextBox = Nothing
End Sub

Anzeige
AW: Objekte in UserForm kreisförmig per VBA anordnen
04.08.2016 14:38:16
Rosenfeld
Hi Basti,
Danke für Deine Hilfe.
Jetzt bleibt mir noch das testen.
Gruß
Siegfried

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige