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: Oudste
Meest nuttig Nieuwste Oudste
  1. Anoniem
    2014-07-22T09:06:15+00:00

    Ko,

    Met Alt+F11 kun je (ook in de veilge modus van Excel) het VBA-scherm openen en daar dus code plaatsen.

    Ik denk dat het toesturen (of op onedrive zetten) van jouw bestand, zoals JP voorstelt, in dit geval niet zoveel zin heeft. Je hebt immers aangegeven dat het probleem in elk bestand optreedt.

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2014-07-22T16:47:05+00:00

    Ik denk dat het toesturen (of op onedrive zetten) van jouw bestand, zoals JP voorstelt, in dit geval niet zoveel zin heeft. Je hebt immers aangegeven dat het probleem in elk bestand optreedt.

    Jan,

    Ik twijfel niet aan je kunnen maar toch zou ik het bestand graag eens zien?

    @ Ko,

    In je outlook.com kan je de dropdown gebruiken om naar je onedrive te gaan.

    Daar kan je dan een bestand opladen, je moet het daarna delen waarbij je een hyperlink krijgt. Die moet je hier posten.

    Je kan me het bestand ook doorsturen:

    jean-pierreDOTdegrooteATskynetDOTbe

    Graag vermelding van deze vraag in subject.

    Was dit antwoord nuttig?

    0 opmerkingen
  3. Anoniem
    2014-07-23T11:40:52+00:00

    Beste JP,

    We krijgen licht aan het einde van de tunnel......

    * Ik heb (op jullie advies)  Excel opgestart in de veilige modus

    * Vervolgens jullie code:

    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

    ingeladen.

    Ik zag GEEN rode tekst, alleen een mededeling dat het object niet gevonden kon worden.

    VBA-Tekst aangepast van Rectangle 1 naar Rechthoek 1

    Bij enige mutatie op het werkblad wijzigt het formaat van de rechthoek.

    Dus dit werkt !  Met dank aan jullie !

    Ik ga nu de draad weer oppakken met jullie eerste voorstel Range-georiënteerd.

    Keep you posted !

    Gr,

    Ko Rijken

    Was dit antwoord nuttig?

    0 opmerkingen
  4. Anoniem
    2014-07-23T13:51:31+00:00

    Ko,

    Dat klinkt goed.

    Maar je probleem is er natuurlijk nog niet mee verholpen.

    Je zou nog eens kunnen kijken of er nog bestanden worden opgestart gelijktijdig met het openen van Excel.

    Ofwel: staan er bestanden in de map XLStart met het pad iets als:

    C:\Users\Ko\AppData\Roaming\Microsoft\Excel\XLSTART

    Zo ja, dan zou dat wel eens de boosdoener kunnen zijn.

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen