Afmetingen grafieken

[Verberkmoes]

Ik genereer grafieken van meetgegevens met een Excel macro. Deze macro wordt ook door anderen gebruikt.
Het probleem is dat de afmetingen (mm) en de plaats op het werkblad van gegenereerde grafieken afhankelijk is van de schermresulutie van de gebruikte PC.
Ik wil de grafieken echter altijd even groot en op dezelfde plaats hebben onafhankelijk van de schermresolutie.

Vraag 1: bestaan er VBA opdrachten waarbij de afmetingen van de grafiek (mm), de plaats van de grafiek op het werkblad (afstand in mm vanaf bovenkant en linkerkant werkblad) en ook de lengte (mm) van de horizontale en vertikale as van de grafiek op te geven zijn op het moment dat de grafiek gegenereerd wordt of eventueel achteraf.

Alternatieve oplossing:
Als ik de schermresulutie met VBA kan oproepen, dan kan ik nadat de grafiek gegenereerd is de afmetingen aanpassen. Dit is een minder elegante oplossing omdat ik dan met een behoorlijk aantal schermresoluties rekening moet houden en er in de toekomst ook nog nieuwe schermafmetingen kunnen komen.

Vraag 2: is het mogelijk met VBA de schermresolutie op te roepen.


Alle tips om dit probleem op te lossen zijn welkom.

By voorbat dank,

Bert Verberkmoes

 

[jpvs]

Met deze code wordt de zoom aangepast aan de selectie.
Bv verander de Range en zie wat er gebeurd.
A1:L1 zit je op 97%
A1:K1 zit je op 107% zoom


Sub test()
Dim sel As String
sel = Selection.Address
Range("A11").Select
ActiveWindow.Zoom = True
Range(sel).Select
End Sub

Pierre

 

[Verberkmoes]

Met veel dank. Dit werkt perfect!
Groeten,
Bert Verberkmoes