|
いし さん、IROC さん、こんにちは。
>>Excelアプリケーションのウィンドウの中心ですか?
>>それともディスプレイ(デスクトップ)の画面の中心ですか?
>
>ディスプレイのです(特に考えていなかったのですが)
>・・。現在はいろいろ数値を変えてみてます。
本格的にやるなら、API(SystemParametersInfoか、GetDeviceCapsか)
でディスプレイのサイズ又は、デスクトップのサイズを取得するのでしょうが・・・・、
こんな方法で取りあえず中心の位置を取得する方法は
いかがですか?
'===========================================================
sub main
With UserForm1
.StartUpPosition = 2
.Show vbModeless
MsgBox "中心x,y(" & .Left + .width / 2 & "," & .Top + .height / 2 & ")"
.Top = .Top + .height / 2
.Left = .Left + .width / 2
End With
end sub
確認して下さい。
|
|