Syntax array-Variable des Typs "shape"
31.03.2005 09:24:25
Hendrik
Ich finde leider in keinem meiner Bücher oder im Netz eine Anleitung wie man mit Variablen des Typs shape zu verfahren hat.
Als Beispiel ich habe ich folgende nicht funktionierende Syntax:
Sub shapes()
Dim Ampel(3) As Shape
ActiveSheet.ChartObjects("Diagramm 14").Activate
' fülle Array mit Amplen
Set Ampel(1) = ActiveChart.Shapes("Freeform 56")
Set Ampel(2) = ActiveChart.Shapes("Freeform 61")
Set Ampel(3) = ActiveChart.Shapes("Freeform 66")
Dim i, j, k As Integer
j = 1
'färbe 1. Ampel schwarz
With Ampel(j + 0)
.ShapeRange.Fill.ForeColor.SchemeColor = 8
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
MsgBox "1. schwarz"
End With
End Sub
'Hier müsste der Fehler liegen!
'das wird mit j in einer Schleife noch weiter durchgezählt
Also: wenn ich eine Variable (ampel) als shape habe geht offensichtlich das nicht:
ampel.ShapeRange.Fill.ForeColor.SchemeColor = 8
Aber wie gehts?
oder mach ich was mit den Zahlen im Array falsch?
Danke!
Hendrik.
Anzeige