AutoForm
21.08.2007 09:40:31
Holger
ich füge mit folgendem Makro eine Autoform in eine Grafik ein, jetzt soll diese Autoform aber beim Blattwechsel wieder gelöscht werden, die Vorhandene Grafik aber soll nicht gelöscht werden. Gibt es die Möglichkeit die einzufügende Form einen festen Namen zu geben, Excel nummeriert sie fortlaufend.
Über Hilfe wäre ich Dankbar.
Sub Markierung()
ActiveSheet.Shapes.AddShape(msoShape32pointStar, 245.25, 113.25, 72#, 72#). _
Select
Selection.ShapeRange.ScaleWidth 0.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.IncrementLeft 26.25
Selection.ShapeRange.IncrementTop 0.75
Selection.ShapeRange.IncrementLeft 12#
Selection.ShapeRange.IncrementTop 84#
Selection.ShapeRange.IncrementLeft -153.75
Selection.ShapeRange.IncrementTop -68.25
End Sub
Gruß Holger