Ga naar inhoud

Flowchart pictogram bewerken zonder selecteren.


Cor-Assa
 Delen

Aanbevolen berichten

Beste mensen,

Ik ben voor mijn werk een stroom diagram aan het maken.

Nu wil ik dat als een Flowchart wordt aangeklikt deze van kleur veranderd maar dat lukt mij niet zonder deze te selecteren.

Weet iemand hoe ik dat moet doen?

Sub Selektie_kleuren()
'
    ActiveSheet.Shapes.Range(Array("Flowchart: Terminator 2")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.8000000119
        .Transparency = 0
        .Solid
    End With
End Sub

B.v.d.

Cor Assa

Link naar reactie
Delen op andere sites


  • Reacties 22
  • Aangemaakt
  • Laatste reactie

Beste reacties in dit topic


Als het goed is functioneerd het al gedeeltelijk.

Als je op start klikt wordt deze groen en de pijl er onder oranje, aangevende de volgende stap.

Als je daarna op de knop "Selecteer via AMX ...." klikt moet de knop "Start" weer licht blauw worden en de pijl weer donker blauw

Tevens moet de pijl onder "Selecteer via AMX ...." dan oranje worden.

Dit heb ik in mijn originele bestand al voor elkaar.

Alleen het probleem wat ik heb is dat ik de bewuste knop of pijl specifiek moet selekteren, terwijl dat volgens mij bij afroepen van de naam ook moet kunnen, en dat lukt mij niet.

 

Alvast bedankt.

Link naar reactie
Delen op andere sites


Dus komt het er eigenlijk op neer dat ik de Flowcharts bij naam roep door;

.Shapes("Flowchart: Terminator 2")

En de kleur met;

.Fill.ForeColor.RGB = RGB(169, 208, 142)

En voor de pijlen bij naam met;

.Shapes("Down Arrow 16")

En de kleur met;

.ForeColor.RGB = RGB(255, 153, 0)

!

En al die andere code er omheen is overbodig?

 

Alvast bedankt, een heel stuk wijzer en scheelt heel veel code.

Link naar reactie
Delen op andere sites

Bedankt weer dotchiejack.

Ik vind alleen jouw pijlen te grof, hou het liever bij die uit mijn voorbeeld.

Maar die heeft het probleem dat jouw methode niet werkt, komt dat omdat het een andere stijl is?

Ik had het eerst zo, en dat werkt;

Sub Pijl_oranje()
ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 4")).Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent4
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
    End With
End Sub

Met jouw methode probeerde ik het zo;

.Shapes("Straight Arrow Connector 4").Fill.ForeColor.RGB = RGB(255, 153, 0)

Helaas werkt dat niet.

Link naar reactie
Delen op andere sites

 Delen


×
×
  • Nieuwe aanmaken...