• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

hoe gaat het kleuren zonder selection in dit geval?

Status
Niet open voor verdere reacties.

sylvester-ponte

Verenigingslid
Lid geworden
19 apr 2007
Berichten
6.541
Code:
    If WorksheetFunction.IsEven(n) Then
'       .ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rood !!!!!!!!!!!!!!!!!! werkt niet 
       .Select: Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)'          werkt wel
    Else
'       .ShapeRange.Fill.ForeColor.RGB = RGB(0, 176, 80) 'groen !!!!!!!!!!!!!!
       .Select: Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 176, 80)
    End If
zie macro test
 

Bijlagen

  • dartbord 4.xlsm
    22 KB · Weergaven: 22
Zo zou het moeten werken

Als je selecteert, selecteer je het hele blok. Daarna moet je nog de verwijzing maken naar de "shaperange"
Wanneer je direct de shape benadert, hoef je de shaperange ook niet aan te roepen.:)

Code:
If WorksheetFunction.IsEven(n) Then
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
    .Fill.ForeColor.RGB = RGB(0, 176, 80)
End If
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan