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

Beiträge aus den Excel-Beispielen zum Thema "tabelle kopieren"