Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Rijhoogte en Kolombreedte opvragen

  1. #1
    Junior Member
    Geregistreerd
    18 juni 2019
    Vraag is opgelost

    Rijhoogte en Kolombreedte opvragen

    Met welk VBA commando kan ik de hoogte van een rij en de breedte van een kolom opvragen?

    Alvast bedankt voor de reactie.

  2. #2
    Senior Member
    Verenigingslid
    JanBG's avatar
    Geregistreerd
    30 augustus 2017
    Locatie
    Flevoland
    Hallo,

    Zo bijvoorbeeld:

    Code:
    Sub Macro1()
    MsgBox "Rijhoogte is " & ActiveCell.Height
    MsgBox "Kolombreedte is " & ActiveCell.Width
    End Sub
    You're never wrong to do the right thing

    Mark Twain

  3. #3
    Junior Member
    Geregistreerd
    18 juni 2019
    Bedankt voor de snelle reactie. Ik heb de code getest en ik kom iets merkwaardigs tegen:
    De code geeft Rijhoogte is: 15,75 en Kolombreedte is: 48.
    Als ik dat in Excel opvraag krijg ik Rijhoogte is 15,75 en Kolombreedte is: 8,43.

    En m'n 2e vraag is hoe ziet de code er uit als ik het op wil vragen van niet actieve cellen.

  4. #4
    Senior Member
    Verenigingslid
    JanBG's avatar
    Geregistreerd
    30 augustus 2017
    Locatie
    Flevoland
    Om je eerste vraag te beantwoorden helpt het als je een voorbeeldbestandje plaatst.

    ActiveCell is de cel in je bestand waar de cursor in staat. Je zult Excel toch moeten laten weten van welk rij en/of kolom je de hoogte en breedte wilt weten
    You're never wrong to do the right thing

    Mark Twain

  5. #5
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Afstand tot server
    ±99 km
    De afmetingen zijn in punten, niet in pixels en niet in het aantal standaard karakters.
    Zie ook https://docs.microsoft.com/nl-nl/off...-column-widths
    Laatst aangepast door alphamax : 13 juli 2019 om 11:46

  6. #6
    Junior Member
    Geregistreerd
    18 juni 2019
    Ik heb een bestandje bijgevoegd. De cursor staat in A1, de macro en Excel geven verschillende waarden voor zowel regel als kolom.

    Ik wil die waarden gebruiken om lijn op een bepaalde positie te tekenen. Die positie is afhankelijk van de breedte van de kolommen, maar hoeft niet persé op de grens van kolommen te zijn, dus bijvoorbeeld halverwege kolom E. Ik gebruik daarvoor:
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, POS_LINKS, POS_BOVEN, POS_LINKS, POS_ONDER).Select
    With Selection.ShapeRange.Line
    .Visible = msoTrue
    .Weight = 20 'Dikte van de lijn
    .ForeColor.ObjectThemeColor = msoThemeColorAccent3
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = -0.25
    .Transparency = 0
    End With
    Bijgevoegde bestanden Bijgevoegde bestanden

  7. #7
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Afstand tot server
    ±99 km
    Die positie is afhankelijk van de breedte van de kolommen, maar hoeft niet persé op de grens van kolommen te zijn, dus bijvoorbeeld halverwege kolom E
    Code:
    POS_LINKS = Range("A1:D1").Width + Range("E1").Width / 2

  8. #8
    Junior Member
    Geregistreerd
    18 juni 2019

    Thumbs up

    Wat kan het leven toch simpel zijn.
    Bedankt!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren