einen Kreis einfügen in bild dynamisch
23.09.2008 21:06:00
Karel
mochte gern ein vordefinierten Rote und / oder Grüne Kreis einfügen in mehrere Bilder, zum markierungszwecken bestimmten bereichen in einer Bild.
Kreis muss da Positioniert werden wo mauszeicher sich befindet und uber Rechter Maustast Menu aufruf sein, da kann mann dann betreffenden Auswahl treffen, ein menupunkt für Rote Kreis und ein menupunkt für Grüne Kreis betreffenden Kreis in Bild wird dann eingefügt.
mit Makrorecorder habe ich unterstehenden Code aufgezeichnet Kreis wird aber immer auf gleiche Stellen reinkopiert und nicht Dynamisch.
Sub Kreis()
ActiveSheet.Shapes.AddShape(msoShapeOval, 154.5, 253.5, 103.5, 99.75).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Weight = 3#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.IncrementLeft -26.25
Selection.ShapeRange.IncrementTop -134.25
ActiveSheet.Shapes("Picture 4").Select
Range("K15").Select
End Sub
Grüsse
Karel