title image


Smiley Re: Ich habe doch noch eine Frage
Hallo' Im Tabellenblatt "Tabelle3" wurde ein Bild mit der Bezeichnung' "Image1" angelegt und dieses wird dann auf eine leere Schaltfläche' Button Nr. 231 kopiert. Dort kannst du jedes beliebige Icon, Bild usw.' hinterlegen.Sub Auto_open() With Toolbars("Format") .ToolbarButtons.Add Button:=231 Sheets("Tabelle3").Pictures("Image1").CopyPicture With .ToolbarButtons(.ToolbarButtons.Count) .PasteFace .OnAction = "MeinMakro" .Name = "Mein Makro ausführen!" End With End WithEnd SubSub Auto_close() With Toolbars("Format") .ToolbarButtons(.ToolbarButtons.Count).Delete End WithEnd SubIch hoffe, du kannst damit etwas anfangen.mfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: