Per VBA Steuerelement einfügen

Sub Makro9() ' Makro9 Makro Sheets("ACT ").Select Range("G1").Select ActiveSheet.Buttons.Add(453, 10.5, 105, 36).Select Selection.OnAction = "AlleAus" ActiveSheet.Shapes("BACK CLOSE ALL").Select Selection.Characters.Text = "BACK CLOSE ALL" With Selection.Characters(Start:=1, Length:=14).Font .Name = "Calibri" .FontStyle = "Fett" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 32 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Range("F2").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Birgit,
Habe Dein Makro mal etwas entschlackt und lege drei Test-Button im Sheets("ACT ") an. Bei mir hat es geklappt.
und hier der Code

Sub Makro_test()
Sheets("ACT ").Select
ActiveSheet.Buttons.Add(10, 10.5, 105, 36).Select
Selection.OnAction = "test"
Selection.Characters.Text = "test"
With Selection.Characters(Start:=1, Length:=14).Font
.Name = "Calibri"
.FontStyle = "Fett"
.Size = 11
.ColorIndex = 32
End With
ActiveSheet.Buttons.Add(200, 10.5, 105, 36).Select
Selection.OnAction = "test2"
Selection.Characters.Text = "test2"
With Selection.Characters(Start:=1, Length:=14).Font
.Name = "Calibri"
.FontStyle = "Fett"
.Size = 11
.ColorIndex = 32
End With
ActiveSheet.Buttons.Add(400, 10.5, 105, 36).Select
Selection.OnAction = "test3"
Selection.Characters.Text = "test3"
With Selection.Characters(Start:=1, Length:=14).Font
.Name = "Calibri"
.FontStyle = "Fett"
.Size = 11
.ColorIndex = 32
End With
End Sub

Tip : Das ist das Problem Beim Makro aufzeichnen. Kriegst viel unnötiges Zeug. Alles was mit no belegt ist kannst du rausschmeissen. Im Zweifelsfall habe ich mich immer rangetasten und Zeilen im Code auf Kommetar gesetzt.
Gruß Doris

Sub Makro9() ' Makro9 Makro Sheets("ACT ").Select Range("G1").Select ActiveSheet.Buttons.Add(453, 10.5, 105, 36).Select With Selection .OnAction = "AlleAus" .Name = "BACK CLOSE ALL" .Characters.Text = "BACK CLOSE ALL" With .Characters.Font .Name = "Calibri" .FontStyle = "Fett" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 32 '.TintAndShade = 0 '.ThemeFont = xlThemeFontNone End With End With Range("F2").Select End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread