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-24T09:45:42+00:00

Beste Jan,

Met genoegen laat ik jullie weten dat jullie onderstaande code werkend heb,

en wel in een normaal opgestarte Excel (dus niet Veilge modus maar gewoon in Comptabiliteitsmodus)

Hulde voor jullie ondersteuning !

Private Sub Worksheet_Change(ByVal Target As Range)

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

         With Me.Shapes("Rectangle 1")

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

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

         End With

     End If

End Sub

Rectangle heb ik -zoals gemeld- veranderd in Rechthoek.

Het door jullie aangegeven pad heb ik gecontroleerd, maar heb geen bestandje gezien onder

C:\Users\Ko\AppData\Roaming\Microsoft\Excel\XLSTART met name NIETS in XLSTART

In dit pad zag ik onder Excel wel een bestandje staan: Excel12.xlb d.d. 16 juni 2014, dus ten tijde dat ik met deze materie bezig was. Mag ik dat bestandje DELETEN ?

Ik heb nog een vraag:

Ik ga deze code gebruiken in een staafdiagram met maar liefst 28 staven (rechthoeken); elke staaf gerelateerd aan een bepaalde waarde in een bepaalde cel.

Ik heb gemerkt dat ik de code niet zomaar kan door kopiëren met aanpassing van rechthoeknummer en ranges.

Hij roept dat hij een dubbel naam ziet

Kunnen jullie mij aangeven hoe ik deze code kan uitbreiden naar rechthoek 2, 3 enz. enz.

Ben jullie erkentelijk voor jullie niet aflatende ondersteuning.

Met dank bij voorbaat en groet,

Ko Rijken
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-24T10:56:33+00:00

Ko,

Als mogelijkheid:

Onderstaande code wijzigt de breedte en de hoogte van alle rechthoeken als er wat wordt gewijzigd in A1:A29.

A1 bepaalt hier de breedte van alle rechthoeken

A2:A29 bepaalt de hoogte van elke rechthoek afzonderlijk.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Long

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

        For i = 2 To 29

            With Me.Shapes("Rechthoek " & i - 1)

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

                .Height = Application.CentimetersToPoints(Me.Range("A" & i))

            End With

        Next

    End If

End Sub

Maak je opzettelijk niet gebruik van een gewoon staafdiagram?

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-24T14:32:28+00:00

Beste Jan,

Hartelijk dank voor je code;

ik ga hem uitproberen.

We maken bewust geen gebruik van de normale staafdiagramfunctie

omdat het een zeer complexe grafiek is waarin we binnen één A4'tje

een complete company presenteren met alle mogelijke toeters en bellen.

Met dank en vriendelijke groet,

Ko Rijken
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2014-07-30T22:51:03+00:00

Beste JP,

ik heb je een mailtje met een bestandje gestuurd

M.vr,gr,

Ko
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen