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"