Lijnen tekenen Excel 2007 (probleem)

[Anoniem: 116325]

Goede morgen,

In Excel 2003 is het een koud kunstje om met VBA een lijn in Excel te tekenen. Ik gebruik hiervoor de code:

activesheet.shapes.addline(100,100,200,200)

Excel teken dan een lijn die in een 2 dimensionaal stelsel loopt van punt(100,100) naar punt(200,200). Tot zover geen probleem.
Als je een lijn zou willen tekenen die over het raster loopt, dan kan je gebruik maken van de x,y coördinaten van de cellen. Zo kan je een lijn tekenen die over het linker raster loopt van bijvoorbeeld Cel B1 met de code“ Range("B1").left “|. In Excel 2003 nooit een probleem gehad. Helaas is excel 2003 niet meer legaal te krijgen en zitten ik dus vast een Excel 2007.

Als ik mijn programma's draai in Excel 2007 gebeurt er iets vreemds. Als ik een lijn teken over het raster gaat dat, als ik 100% ingezoomd sta, prima. Zodra ik uitzoem tekent excel de lijnen niet meer op het raster, ondanks dat ik wel de coördinaten van het raster opgeeft. Om het te verduidelijken een stukje code:

sub test()

A = Range("Z1").left
activesheet.shapes.addline(A,100,A,200)

end sub

Deze code zou een lijn moeten tekenen over de rasterlijn tussen kolom Y en Z. Excel tekent de lijn echter helemaal naast het raster. Het gaat wel goed als je zoom op 100% staat??

Als iemand hier een oplossing voor heeft, of weet waardoor het komt.... dan hoor ik dat vanzelfsprekend graag. Ik zit er behoorlijk mee in me maag.

Alvast bedankt!

Casper