Flowchart pictogram bewerken zonder selecteren.

[Cor-Assa]

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

[Cor-Assa]

voorbeeld is onderweg.☺️

[Cor-Assa]

Ik moest even wat zakelijk betrouwbare info weg halen.

Voorbeeld voor fora.xlsm

[Cor-Assa]

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.

[Cor-Assa]

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.

[Cor-Assa]

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.

[Cor-Assa]

1 uur geleden, dotchiejack zei:

Verander

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

In

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

 

Ja, is begrijpelijk, niet vullen maar een lijn.☺️

[Cor-Assa]

Nog n vraagje wat met dit knutselwerk te maken heeft.

Is het mogelijk om een Macro die aan een knop gekoppeld is te blokkeren totdat aan een bepaalde voorwaarde is voldaan?

Dus dat ik pas op de knop "Selecteer via AMX de Processmaneger" kan klikken en de gekoppelde macro kan activeren nadat ik de "START" knop dus macro heb gebruikt.

20 maart 2021 aangepast door Cor-Assa

[emielDS]

bedoel je zoiets?

Flowchart.xlsm

[Cor-Assa]

Lijkt er wel op maar is me niet helemaal zeker omdat ik het verschil moeilijk met 3 figuren en 2 schelingen.

Jij doet het zeker met deze formule;

        .Shapes.Range(Array("Flowchart: Alternate Process 1")).Visible = True

Hoe ga ik dat invoeren met meerdere figuren, wanneer is de waarde 1?

Neem aan dat het daarom gaat?