Herbers Excel-Forum - das Archiv

FaceId und copyface

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: FaceId und copyface
von: ransi

Geschrieben am: 13.02.2005 11:35:33
Guten Morgen
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
Bild

Betrifft: AW: FaceId und copyface
von: Bert
Geschrieben am: 13.02.2005 15:48:36
Exportier die icon mit SavePicture in Dateien, lies sie in ein ImageView-control
und speise damit dein Listview.
Bert
Bild

Betrifft: AW: FaceId und copyface
von: ransi

Geschrieben am: 13.02.2005 19:07:48
hallo bert
Danke für die antwort, aber genau diesen Umweg wollte ich eigentlich nicht gehen.
Die bilder abspeichern um sie anschließend wieder löschen zu müssen widerstrebt mir und kann irgendwie nicht richtig sein...
Sei nicht sauer, aber ich stelle die "Frage noch offen".
Vieleicht hat ja noch jemand anderes einen vorschlag diesbezüglich.
Wenn nicht, werde ich den von dir skizzierten weg wohl einschlagen müssen.
ransi

 Bild