Ich habe ein kleines Makro geschrieben das folgendermassen funktioniert.
Ich klicke auf eine Schaltfläche in einer selbserstellten Symbolleiste
und die Aktive Zelle wird vergrössert dargestellt. Das heisst Schriftgrösse 20
Schriftart fett, Schriftfarbe Rot.
Jetzt kann ich wenn ich auf eine andere Schaltfläche klicke die Schriftfarbe Schrieftgrösse
und Schriftart wieder zurückstellen. Also wie eine Art Lupe.
Jetzt ist es so das die ganzen Parameter fest im VBA Code hinterlegt sind.
Wenn ich eine Exel Tabelle aufmache mein Markro anwende wird beim Zurückstellen
der Schrift die Schriftgrösse auf die grösse 8 zurüchgestellt, unabhängig ob sie vorher
10 oder 12 hatte. Was ja logisch ist weil eben im Makro fest grösse 8 eingestellt ist.
Genauso wird die Zellenbrite den zelleninhalt angepasst.
1.)
Jetzt würde ich gerne wissen ob man den Inhalt der aktiven Zelle also Schriftgrösse, Schriftfarbe
Schriftart und die Zellenhöhe und die Zellenbreite in einer Variablen speichernn kann.
Wenn nach dem Vergrössern wieder auf Ürsprüngliche Ansicht zurüchgestellt wird
dann sollte die Zelle wieder so aussehen wie vorher.
z.B. dim temp as variant
temp = ActiveCell.Format
in etwas so stelle ich mir das vor
2.) kann man das makro auch ausführen mit nur einer schaltfläche in der Sysmbolleiste.
Also einmal klicken Vergrösser nocheinmalklicken verkleinern.
Hier das Makro wie es bis jetzt aussieht.
Sub Lupe()
' Lupe Makro
' Makro am 19.05.2010 von STEFAOS aufgezeichnet
' Tastenkombination: Strg+Umschalt+L
Dim Temp As Variant
ActiveCell.Activate
With Selection.Font
.Name = "Arial"
.Size = 20
'.Strikethrough = False
'.Superscript = False
'.Subscript = False
'.OutlineFont = False
'.Shadow = False
'.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Selection.Font.Bold = True
Selection.Columns.AutoFit
MsgBox Temp
End Sub
Sub Lupe_aus()
' Lupe_aus Makro
' Makro am 19.05.2010 von STEFAOS aufgezeichnet
' Tastenkombination: Strg+Umschalt+A
ActiveCell.Activate
With Selection.Font
.Name = "Arial"
.Size = 8
'.Strikethrough = False
'.Superscript = False
'.Subscript = False
'.OutlineFont = False
'.Shadow = False
'.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = False
Selection.Columns.AutoFit
End Sub
Vielen dank schon im voraus für jede Hilfe.gruss
Kiron