Button über Makro einrichten geht nicht

Forumthread: Button über Makro einrichten geht nicht

Achim

Hallo Excel-Experten
Ich habe ein Button über das Steuerelement "Formular" eingerichtet.
Wenn ich das Makro starte erscheint ein Fehler den ich mit nicht erklären.
Wer kann helfen!!!!
ActiveSheet.Buttons.Add(600.75, 232.5, 72, 72).Select
Selection.OnAction = "Aktualisieren"
Selection.ShapeRange.IncrementLeft -295.5
Selection.ShapeRange.IncrementTop -229.5
Selection.ShapeRange.ScaleWidth 2.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.12, msoFalse, msoScaleFromTopLeft
(An der Stelle taucht der Fehler auf)ActiveSheet.Shapes("Button 1185").Select
Selection.Characters.Text = "Offene Dienste aktualisieren !!!!"
With Selection.Characters(Start:=1, Length:=33).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("M1").Select
End Sub
Gruß evtl. Dank Achim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Button über Makro einrichten geht nicht

06.04.2004 17:51:54

GraFri

Hallo

ActiveSheet.Buttons.Add(600.75, 232.5, 72, 72).Select
Selection.OnAction = "Aktualisieren"
Selection.ShapeRange.IncrementLeft -295.5
Selection.ShapeRange.IncrementTop -229.5
Selection.ShapeRange.ScaleWidth 2.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.12, msoFalse, msoScaleFromTopLeft
Selection.Characters.Text = "Offene Dienste aktualisieren !!!!"
With Selection.Characters(Start:=1, Length:=33).Font
    .Name = "Arial"
    .FontStyle = "Standard"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = 3
End With
Range("M1").Select

mfg, GraFri

AW: Button über Makro einrichten geht nicht

Bert

Ohne select und activate:
Option Explicit


Sub Button_add()
Dim FormularControl As Object
Set FormularControl = ActiveSheet.Buttons.Add(10, 10, 144, 21)
With FormularControl
.Name = "MeinButton"
.Characters.Text = "Soeben gezeugt"
.OnAction = "Testmakro"
.Placement = xlFreeFloating
.PrintObject = False
With .Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.ColorIndex = 5
.Strikethrough = False
.Superscript = False
.Subscript = False
.Underline = xlUnderlineStyleNone
End With
End With
End Sub

Bert

Beliebteste Forumthreads (12 Monate)

Button über Makro einrichten geht nicht

Forumthread: Button über Makro einrichten geht nicht

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Button über Makro einrichten geht nicht

Forumthread: Button über Makro einrichten geht nicht

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread