• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA grafiek grootte aanpassen

Status
Niet open voor verdere reacties.

drakie

Gebruiker
Lid geworden
10 mrt 2001
Berichten
176
Hallo,

Ik zoek een macro waarmee de grafiekgrootte automatisch wordt aangepast naar 16.6 cm bij 26cm.
De betreffende grafiek wordt gegenereerd aan de hand van een draaitabel en op een apart grafiekblad geplaatst.
De grafiek staat op een grafiekblad en de zoom wordt automatisch gezet op 140%.

Probleem is nu dat als ik op een andere PC met een andere schermresolutie de draaitabel ververs de grafiek buiten het tekengebied gaat vallen waardoor je maar een deel van de grafiek ziet.

Kan iemand mij helpen met een macro waarmee de grafiekgrootte automatisch altijd wordt gezet op 16.6 bij 26cm bij een zoom van 140%.

Alvast bedankt.
 
Hier is voorbeeldcode voor de (omgekeerde) berekening:

Code:
MsgBox "breedte in cm = " & ActiveChart.ChartArea.Width / 72 * WorksheetFunction.Convert(1, "in", "cm")

Activeer het grafiekenblad en laat de macro lopen.
De 72 wil zeggen 72 points per inch.
 
Dus voor een breedte van 26 cm geeft dit dan:

Code:
ActiveChart.ChartArea.Width = 26 / WorksheetFunction.Convert(1, "in", "cm") * 72
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan