AW: Recorder
18.01.2008 12:50:00
Peter
Hallo Ma-Bra,
bei mir kommt als Makro 1 das aus dem Recorder:
Sub Makro_1()
' Makro_1
ActiveSheet.Shapes("AutoShape 1").Select
Selection.Delete
Sheets("Tabelle1").Select
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Characters.Text = "Pic 1"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "Pic 1"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveWorkbook.Names.Add Name:="Pic", RefersToR1C1:="=""AutoForm 1"""
End Sub