Variabele afmetingen van een rechthoek

Anoniem

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.

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 opmerkingen

Answer accepted by question author

Anoniem

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

0 opmerkingen

26 extra antwoorden

Anoniem

2014-07-14T14:27:17+00:00

Beste Jan,

Ik heb van alles geprobeerd, maar krijg hem niet aan de praat.

Ik krijg steeds de melding dat er sprake is ven een Syntaxis-error.

Werkte hij wel in jouw spreadsheet ?

Met vriendelijke groet,

Ko
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-07T06:14:59+00:00

Ko,

Daar zijn dit soort forums voor, dus inderdaad als het niet lukt, stel gerust weer een vraag.

Doorgaans zal er wel iemand reageren.

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-06T23:25:53+00:00

Beste Jan,

Was na enkele dagen afwezigheid verrast dat er al een antwoord op mijn vraag was gekomen.

Hartelijk dank daarvoor ...

Mag ik je nog eens lastig vallen als ik er niet uit kom ?

( werken met VBA is tamelijk nieuw voor mij)

Met vriendelijke groet,

Ko
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-02T14:35:10+00:00

Ko,

Dit kan m.b.v. VBA.

Als de naam van de rechthoek "Rechthoek" is, dan kun je onderstaande code in de module van je werkblad plaatsen.

Als je dan A1 of A2 wijzigt zal de rechthoek mee veranderen.

Let wel, in Excel ben je niet zeker van de juistheid van deze maten, in tegendeel.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1:A2")) Is Nothing Then

        With Me.Shapes("Rechthoek")

            .Width = Application.CentimetersToPoints(Me.Range("A1"))

            .Height = Application.CentimetersToPoints(Me.Range("A2"))

        End With

    End If

End Sub

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen