making x and y scale equal in charting

Hello. I am trying to make a chart with x and y axes equally scaled, but it seems difficult to do. I found a VB codes in the net, but it does not work for me so far. Can anybody help me out? Thank you very much.