Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen

Symbol in CommandButton(UF) | Herbers Excel-Forum


Betrifft: Symbol in CommandButton(UF) von: robert
Geschrieben am: 17.12.2009 17:43:54

Hi,

und guten Abend

hab das in einem beispiel gesehen:

z.B. das Diskettensymbol in CommandButton(Eigenschaften-Picture)

wie geht sowas?

wo findet man Symbole?

gruß
robert

  

Betrifft: Diskettensymbol in CommandButton eines UF von: NoNet
Geschrieben am: 17.12.2009 18:17:08

Hallo Robert,

meinst Du das so ?



Gruß, NoNet


  

Betrifft: Danke f.Anleitung !werd es gleich probieren ;-) von: robert
Geschrieben am: 17.12.2009 18:28:49

Danke !


  

Betrifft: AW: Symbol in CommandButton(UF) von: ransi
Geschrieben am: 17.12.2009 18:26:09

HAllo Robert

LAss diesen Code mal in einer leeren TAbelle laufen:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit



Public Sub test()
Dim CC As CommandBarControl
Dim L As Long
Dim Z As Long
On Error Resume Next
With ActiveSheet
    For L = 1 To 50000
        Set CC = Application.CommandBars.FindControl(ID:=L)
        CC.CopyFace
        If Err = 0 Then
            Z = Z + 1
            .Paste .Cells(Z, 1)
            .Cells(Z, 2) = CC.ID
            .Cells(Z, 3) = CC.Caption
            Else:
            Err.Clear
        End If
    Next
End With
End Sub



Dann hast du schon mal was zum Suchen.


Zuweisen kannst du das dann ganz einfach so:

CommandButton1.Picture = Application.CommandBars.FindControl(ID:=3).Picture

ransi


  

Betrifft: @Ransi-Fehlermeldung.. von: robert
Geschrieben am: 17.12.2009 18:36:41

hi,

fehler in dieser zeile-CC grau hinterlegt,

Sub oder Function nich definiert

Set CC = Application.CommandBars.FindControl(ID:=L)

gruß
robert


  

Betrifft: Welche Excel-Version verwendest Du ? von: NoNet
Geschrieben am: 17.12.2009 18:45:00

Hallo robert,

bis Excel 2003 sollte das problemlos funktionieren, ab Excel 2007 evtl. nicht mehr, da es hier keine "Symbolleiste" im herkömmlcihen sinne mehr gibt.
Welche Excel-Version verwendest Du ?

Prüfe mal im VB-Editor unter "Extras - Verweise", welche Verweise gesetzt sind (siehe auch hier : https://www.herber.de/forum/messages/1124732.html) und prüfe, ob dort Defekte/"NICHT VORHANDENE" Verweise enthalten sind.
Die defekten Verweise musst Du deaktivieren.

Gruß, NoNet


  

Betrifft: Version 2003,keine def.Verweise.. von: robert
Geschrieben am: 17.12.2009 19:04:59

hi,

in dieser datei im UF bei Picture (Symbol)

für Seichern und Beenden-woher ?

gruß
robert


https://www.herber.de/bbs/user/66679.xls


  

Betrifft: AW: Version 2003,keine def.Verweise.. von: Tino
Geschrieben am: 17.12.2009 21:01:11

Hallo,
dies wird ein ganz normal kopiertes Bild sein,
kann sonst wo her kommen, kannst Du auch selbst basteln.

https://www.herber.de/bbs/user/66680.xls


Gruß Tino


  

Betrifft: DasBild muss zuvor als ICO-Datei gespeichert sein von: NoNet
Geschrieben am: 17.12.2009 21:26:37

Hallo Robert,

grundsätzlich kannst Du ja unterschiedliche Grafiktypen in den CommandButton einbinden, diese werden dann als (Bitmap) gekennzeichnet. In Deinem Fall handelt es sich aber wohl um ICON-Dateien (*.ICO) oder CURSOR-Dateien (*.CUR), denn diese werden als (Symbol) gekennzeichnet.

Ein paar ICO-Dateien findest Du z.B. hier : http://www.iconarchive.com/

Allerdings muss man diese Icons mit eine Grafikprogramm/Icon Editor noch etwas bearbeiten :
- Diese ICO enthalten mehrere "Frames" pro Datei, diese muss man auf 1 Frame reduzieren
- Die Icons müssen 32x32 Pixel gross sein mit einer Farbtiefe von 4 Bits (=16 Farben).

Auf dieser Seite findest Du ICOns im entsprechenden Format :
http://www.coolarchive.com/icons.php

Hier ein Beispiel von mir mit einer älteren ICO-Datei :


Schau auch mal im Ordner C:\Windows\cursors, dort befinden sich auch einige geeignete *.CUR-Dateien und im Ordner C:\windows\Windows mobile einige *.ICO-Dateien.

Bin gespannt auf Deine Ergebnisse ;-) ...

Gruß, NoNet


  

Betrifft: Danke voresrt, derzeit mit... von: robert
Geschrieben am: 18.12.2009 14:10:41

hi,

..möbel-zusammenbau(Ikea) beschäftigt, melde mich wieder, wenn die kästen stehen-hoffentlich :-)

bis dahin

gruß
robert


Beiträge aus den Excel-Beispielen zum Thema "Symbol in CommandButton(UF)"