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.

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

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-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 Geen opmerkingen
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 Geen opmerkingen
Anoniem

2014-07-16T11:36:51+00:00

Beste Jan,

met dank voor je snelle reactie steeds, laat ik je weten dat de code ook in een verse werkmap niet aan de praat te krijgen is. Wat mij opvalt: de maat van de rechthoek zou moeten veranderen bij wijziging van de waarden in A1 of A2. De voornoemde syntaxis-error-melding komt ook bij iedere input in iedere cel BUITEN de range A1:A2. Dat kan niet goed zijn, omdat we in de code uitsluitend refereren aan A1:A2.

Is de regel If Not Intersect wel juist ?

Hoor graag nader van je....

Met dank bij voorbaat en groet,

Ko Rijken
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-15T12:51:21+00:00

Ko,

Er zijn in de code zoals je die laat zien nog een aantal regels rood gekleurd, wat zou aangeven dat ook in die regels fouten staan.

Dat is welhaast onmogelijk.

Er moet iets buiten het huidige bestand om aan de hand zijn.

De aangevinkte bibliotheken lijken me de juiste.

Zijn er, naast de eutotool, nog meer invoegtoepassingen actief?

Zo ja, dan zou je deze (ook de eurotool) kunnen uitschakelen en tevens alle bestanden sluiten en de code in een nieuw bestand nog eens kunnen proberen.

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen