rectangle value = 0 then visible = false

[sjonnie1974]

Hoi,

ik heb in 1 sheet veel rectangles met een waarde
Als deze waarde 0 is, wil ik ze niet zien.

Kan iemand hier een VBA voor bedenken?

alvast vele malen dank!

 

[edmoor]

Een rectangle heeft geen Value property dus ik denk dat je wat duidelijker moet zijn.

 

[sjonnie1974]

Hoi,

Thnx!
Ik heb wel een oplossing, maar dat werd zo'n lange VBA code....

 

[OctaFish]

Bedoel je wellicht en tekenobject waar je een tekst in hebt staan? En die dan toevallig de waarde 0 kan hebben en dan niet zichtbaar mag zijn?
Voor die lange vba code is natuurlijk een hele simpele oplossing: een bestandje met de hele ratteplan meeleveren .

 

[sjonnie1974]

bijlage

hoi octafish

speciaal op jouw verzoek een voorbeeld bijgevoegd.
De code die er nu instaat werkt, maar is voor 110 rectangles wel erg lang en ik denk overbodig.

De vraag is dus alle shapes op hide te krijgen die waarde 0 hebben.

thnxBekijk bijlage test rectangle.xlsm

 

[OctaFish]

Die code kan nu al korter, laat staan als je 110 objecten hebt . Als je niks aan de namen hebt veranderd, en elke naam overeenkomt met een rij, dan werkt dit prima:

Dim shp As Shape
Dim arr As Variant

With Sheet2
    For Each shp In Sheet1.Shapes
        arr = Split(shp.Name)
        shp.TextFrame.Characters.Text = .Cells(arr(UBound(arr)), 1)
    Next shp
End With