FaceId und copyface
13.02.2005 11:35:33
ransi
Habe mir eine Userform gebastelt die mir CommandbarControls auflistet.
https://www.herber.de/bbs/user/17974.xls
Ich würde gerne anstatt des + oder - gerne das Icon von dem jeweiligen
Steuerelement anzeigen lassen.
Das TreeView Steuerelement gibt das her.
Mit diesem code schaffe ich es die Icons in eine Tabelle zu schreiben.
Ist vieleicht etwas holprig, läuft aber.
Public
Sub bild()
Dim i As Integer
Dim k As Integer
Dim con
Application.ScreenUpdating = False
k = 1
'DoEvents
On Error Resume Next
For i = 1 To 32000
Set con = CommandBars.FindControl(ID:=i)
Cells(k, 1) = con.Caption
If Err = 91 Then
Err.Clear
GoTo weiter
End If
Cells(k, 2) = "ID:=" & con.ID
con.CopyFace
If Err = 438 Then
Err.Clear
GoTo hier
End If
Cells(k, 3).Select
Paste
hier:
k = k + 1
weiter:
Next
Application.ScreenUpdating = True
End Sub
Public
Sub weg() 'zum löschen
Shapes.SelectAll
Selection.Delete
Columns("a:d").Delete
End Sub
Nun kriege ich nicht die Kurve die icons direkt in das treeview zu kopieren.
Kann mir jemand da Hilfestellung geben ?
danke schon mal an alle die sich damit beschäftigen und bemühen.
ransi