Variabele afmetingen van een rechthoek

Anoniem
2014-07-02T12:05:16+00:00

Ik wil binnen Excel de afmetingen van een getekende rechthoek van bijv. 5 bij 10 cm

koppelen aan de waarde van 2 te benoemen cellen.

Als ik de waarden in die cellen wijzig, moet de rechthoek derhalve ook van afmetingen veranderen.

Wie weet hiervoor de oplossing ??

Met dank voor iedere suggestie ..

M.vr.gr.

Ko

Microsoft 365 en Office | Excel | Voor thuisgebruik | Windows

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

0 opmerkingen
Antwoord geaccepteerd door vraagauteur
Anoniem
2014-07-16T13:55:00+00:00

Ko,

Ja die regel zou geen probleem mogen zijn.

Je kunt eens proberen of dit werkt:

Private Sub Worksheet_Change(ByVal Target As Range)

    With Me.Shapes("Rectangle 1")

        .Width = Application.CentimetersToPoints(4)

        .Height = Application.CentimetersToPoints(6)

    End With

End Sub

Vertoont de code (nadat je deze in de module van het werkblad hebt gezet) nog rode tekst?

Zo niet dan:

Wijzig de afmetingen van de rechthoek.

Wijzig iets in het werkblad.

Bij elke wijziging in het werkblad zal de rechthoek de afmeting 4×6 krijgen.

Werkt dit wel.

Jan

Was dit antwoord nuttig?

0 opmerkingen

26 extra antwoorden

Sorteren op: Nieuwste
Meest nuttig Nieuwste Oudste
  1. Anoniem
    2014-07-18T13:18:23+00:00

    Ko,

    Nou Ko, mijn meedenken houdt hier wel zo ongeveer op vrees ik

    Het lijkt erop dat je bij elke (op zich juiste) VBA code die je invoert compileerfouten krijgt.

    Toch nog een poging:

    Als je Excel start met ingedrukte Ctrl-toets, wordt Excel in veilige modus gestart.

    Als je dan in het voorstaande werkblad een rechthoek zet en de oorspronkelijke code in de module van het werkblad zet, werkt het dan wel goed?

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2014-07-18T10:13:38+00:00

    Beste Jan,

    mijn overzicht onder "Opties voor Excel", "Invoegtoepassingen", "Actieve Invoegtoepassingen voor

    toepassingen" meldt: Geen actieve invoegtoepassingen voor toepassingen

    Fijn dat je mee blijft denken

    Gr,

    Ko

    Was dit antwoord nuttig?

    0 opmerkingen
  3. Anoniem
    2014-07-18T05:57:44+00:00

    Ko,

    Heb je alle mogelijke invoegtoepassingen en/of andere zaken die met Excel worden opgestart in Excel uitgeschakeld?

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen
  4. Anoniem
    2014-07-17T09:50:11+00:00

    Jan, goede morgen,

    -als ik de code in de module zet zie ik:

    Private Sub Worksheet_Change(ByVal Target As Range)

        With Me.Shapes("Rectangle 1") --Deze regel is ROOD

            .Width = Application.CentimetersToPoints(4)

            .Height = Application.CentimetersToPoints(6)

        End With --Deze regel is ROOD

    End Sub

    Ik weet het ook niet meer ...

    Gr,

    Ko

    Was dit antwoord nuttig?

    0 opmerkingen