AW: Icons in Datei speichern
27.01.2004 05:51:43
andre
hallo gunther,
du speicherst die icons einfach auf einem blatt und wenn du sie brauchst nimmst du sie. im beispiel hatte ich mal 2 icons, das 2. ist hier auskommentiert. bei der größe musst du aufpassen, die muss glaube 16x16 pixel sein - einfach mal probieren. bei anderen größen wird das symbol glaube auch genommen und angepaßt.
Option Explicit
' Makro1 Makro
' Makro am 27.07.97 von André Schau aufgezeichnet
Dim i As Integer
Sub Symbol_anpassen()
On Error Resume Next
Toolbars("Meineliste").Delete
On Error GoTo nix
With Application
.ShowToolTips = True
.LargeButtons = False
.ColorButtons = True
End With
Toolbars.Add Name:="Meineliste"
On Error GoTo nix
' For i = 1 To 2
i = 1
Toolbars("Meineliste").ToolbarButtons. _
Add Button:=210 + i, Before:=1
With Toolbars("Meineliste")
.Visible = True
.Position = xlTop
.Left = 649
.Top = 35
End With
Sheets("Typ").DrawingObjects("symbol" & i).Copy
Toolbars("Meineliste").ToolbarButtons(1). _
PasteFace
' Next i
' erste zuordnung war button 2
Application.Toolbars("Meineliste").ToolbarButtons(1). _
OnAction = "los_gehts"
' Application.Toolbars("M-Auswertung").ToolbarButtons(1). _
' OnAction = "auswertung_drucken"
With Toolbars("Meineliste")
' .ToolbarButtons(1).Name = "Auswertung drucken"
.ToolbarButtons(1).Name = "neue Auswertung"
End With
nix:
End Sub
Sub auto_close()
On Error Resume Next
Toolbars("Meineliste").Delete
Workbooks("Meineliste_Tabs.xls").Saved = True
Workbooks("Meineliste_Tabs.xls").Close
ActiveWorkbook.Close savechanges:=False
End Sub