Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54217 / 76732 ←次へ | 前へ→

【27312】Re:フォームの固定について
回答  [名前なし]  - 05/8/4(木) 23:16 -

引用なし
パスワード
   ▼N館 さん:
Private Sub UserForm_Layout()
  Top = 200
  Left = 200
End Sub
のような感じでしょうか。

StartUpPositionプロパティが 0 - 手動ではないのなら、

Dim DefLeft, DefTop 'フォームモジュールの先頭に記述

Private Sub UserForm_Layout()
  If DefLeft = 0 And DefTop = 0 Then
    DefLeft = Me.Left
    DefTop = Me.Top
  Else
    Me.Left = DefLeft
    Me.Top = DefTop
  End If
End Sub

なんて感じでいけるかと。

0 hits

【27131】フォームの固定について N館 05/7/29(金) 14:23 質問
【27134】Re:フォームの固定について ちくたく 05/7/29(金) 15:03 回答
【27252】Re:フォームの固定について N館 05/8/3(水) 15:43 質問
【27312】Re:フォームの固定について [名前なし] 05/8/4(木) 23:16 回答
【27317】Re:フォームの固定について N館 05/8/5(金) 11:19 お礼
【27345】Re:フォームの固定について [名前なし] 05/8/5(金) 21:37 回答
【27497】Re:フォームの固定について N館 05/8/10(水) 14:36 お礼

54217 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free