Eigenschaftsfenster per Code einblenden

Forumthread: Eigenschaftsfenster per Code einblenden

27.01.2005 12:31:05

Rolf

Hallo Forum,
gibt's einen Befehl,
der das Eigenschaftsfenster für Elemente
der Steuerelemente-Toolbox in Tabellenblättern
einblendet?
Herzliche Grüße
Rolf

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

.Controls("Ei&genschaften").Execute

bernd
AW: .Controls("Ei&genschaften").Execute

27.01.2005 16:30:25

Rolf
nur eine schleife

bernd
AW: nur eine schleife

29.01.2005 09:07:47

Rolf

.Controls("Ei&genschaften").Execute

bernd

mahlzeit rolf
Hilft dir das weiter?
Option Explicit
Public


Sub test()
CommandButton1.Select
With CommandBars("control toolbox")
.Controls("Ei&genschaften").Execute
.Controls("&Entwurfsmodus").Execute
'bist jetzt im entwurfsmodus
End With
End Sub

bernd

AW: .Controls("Ei&genschaften").Execute

27.01.2005 16:30:25

Rolf

Hallo Bernd,
vielen Dank, dass du mir wieder mal
aus der Klemme geholfen hast.
".Controls("&Entwurfsmodus").Execute" läuft zwar auf -
aber macht nichts, weil ich ja schon da bin,
wo ich hin wollte.
Und wenn ich dich schon einmal an der Strippe habe:
du hattest mir kürzlich eine Funktion z.V. gestellt,
die in einer zigmal verschachtelten Schleife alle
Controls auflistet.
Ich doktere immer noch daran herum,
das mit einem rekursiven Aufruf hin zu bekommen -
leider erfolglos.
Hast du vielleicht eine diesbezügliche Idee?
Nochmals danke + herzliche Grüße
Rolf

nur eine schleife

bernd

hallo rolf
ich weiß zwar nicht was "ein rekursiver Aufruf" ist,
aber versuch mal dies:
Option Explicit
Public


Sub zeig_alle()
Dim l As Long
Dim k As Long
k = 1
For l = 1 To 32000
On Error Resume Next
With CommandBars.FindControl(ID:=l)
Cells(k, 1) = .Caption
If Err = 91 Then GoTo weiter
Cells(k, 2) = "ID:= " & .ID
Cells(k, 3) = .Parent.NameLocal
End With
k = k + 1
weiter:
Next
End Sub

vieleicht hilfts dir ja weiter.
bernd

AW: nur eine schleife

29.01.2005 09:07:47

Rolf

Hallo Bernd,
vielen Dank für deine Mühe.
Die Schleife ist zwar eleganter,
bildet aber, im Gegensatz zu deiner
ersten Lösung, die Commandbar-Struktur nicht ab
und liefert auch nicht alle Controls.
Bleib' ich also bis auf weiteres bei Lösung 1.
Was den Aufruf rekursiver Funktionen angeht,
freue ich mich, mal was für dich tun zu können (s.Folder-Beispiel)
Herzliche Grüße
Rolf


Sub test_allfolders()
Dim r As String
Dim A As Variant
r = ThisWorkbook.Path & "\"
A = allfolders(r)
MsgBox Join(A, vbCrLf)
End Sub


Function allfolders(foldspec)
Static x()
Static i As Long
Dim fs, f, f1, fc
Dim n As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(foldspec)
Set fc = f.SubFolders
n = fc.Count
For Each f1 In fc
If n > 0 Then i = i + 1
ReDim Preserve x(i)
x(i) = foldspec & f1.Name
allfolders (x(i) & "\") 'rekursiver Funktionsaufruf!!!
Next
allfolders = x
End 

Function

Beliebteste Forumthreads (12 Monate)

Eigenschaftsfenster per Code einblenden

Forumthread: Eigenschaftsfenster per Code einblenden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread