select vermeiden für shapes
22.11.2004 16:06:09
joe
da ich hier öfters mal gelesen habe, dass man select vermeiden sollte, hoffe ich auf entsprechende hilfe.
und zwar habe ich z.b. folgenden code:
ActiveSheet.Shapes.AddShape(msoShapeRectangle, modul_x, modul_y, x_shape, y_shape).Select
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 = 43
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 48
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 1, 0.23
da dieser code in einer schleife steht, kommt es vor, dass über 100 oder 200 solcher rechtecke gezeichnet werden sollen, was den excel-speicher ganz schön voll macht.
ich wäre sehr dankbar, wenn mir jemand diesen code ohne select umschreiben könnte, und idealerweise ein wenig erklären.
danke im voraus
joe