ワールド座標グラフィックスでの描画領域のサイズ変更

Sub InitializeGraphicsの中で、ワークシートの左上から640×480ピクセルの範囲に描画領域が設定されています。

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 639, 479)
    Call SetGraphicsWindow(0, 0, 639, 479)
  ......
End Sub

Sub SetViewPortの引数を変更してCallすることにより、描画領域のサイズを変更することができます。

例　左上から800×600ピクセルの範囲に設定する場合

    Call SetViewPort(0, 0, 799, 599)

常に描画領域のサイズを変更して利用したい場合は、Sub InitializeGraphics内でCallしているSetViewPortの引数を変更してください

例　左上から800×600ピクセルの範囲を描画領域とし、右上が正の座標系を指定する場合

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 799, 599)
    Call SetGraphicsWindow(-4, 3, 4, -3)
  ......
End Sub