Excel VBA質問箱 IV

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

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


76151 / 76732 ←次へ | 前へ→

【5006】Re:デバッグって何?
発言  ぴかる  - 03/4/17(木) 9:10 -

引用なし
パスワード
   こうさん、おはようございます。

すみません。相変わらずの意味不明の日本語で・・・。こっちの方も、もっと勉強致しますっ!。
エラーが発生の間違いです。詳しくは、以下の通りです。

Dim xx, yy As Integer
Type RECT
  x1 As Long
  y1 As Long
  x2 As Long
  y2 As Long
End Type

Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" _
      (ByVal hWnd As Long, rectangle As RECT) As Long
'---------------------------------------------------------------
Function GetScreenResolution() As String
Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long
  hWnd = GetDesktopWindow()
  RetVal = GetWindowRect(hWnd, R)
  'GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
  xx = R.x2 - R.x1
  yy = R.y2 - R.y1
End Function

Sub TEST_SET()
  Call GetScreenResolution
  Debug.Print xx, yy
  With Application
    .Height = yy * 0.75 + 20  ’←この箇所でエラー発生となります。
    .Width = xx * 0.75 + 0
    .Top = -20
    .Left = 0
    .CommandBars("Worksheet Menu Bar").Enabled = False
  End With
  MsgBox "ねっ!"
  With Application
    .Height = yy * 0.75 + 30
    .Width = xx * 0.75 + 0
    .Top = 0
    .Left = 0
    .CommandBars("Worksheet Menu Bar").Enabled = True
  End With
End Sub

エラー内容は、
「実行時エラー'1004'」
 「Heightメソッドは失敗しました。:'_Applicationオブジェクト」
です。

環境は、Win2000+Office2000です。

やっぱり、私がどっかでやらかしていると思うんですけど・・・。
以上、報告でした。(^^;)

1 hits

【4962】タイトルバー 青木 03/4/15(火) 17:08 質問
【4966】Re:タイトルバー ぴかる 03/4/15(火) 17:51 回答
【4968】Re:タイトルバー 森三中 03/4/15(火) 21:11 質問
【4970】ほんまですね。 ぴかる 03/4/16(水) 8:56 発言
【4974】Re:ほんまですね。 森三中 03/4/16(水) 10:07 発言
【4975】Re:ほんまですね。 ぴかる 03/4/16(水) 10:21 発言
【4976】Re:大変申し訳ございませんでした。 森三中 03/4/16(水) 11:08 発言
【4983】Re:大変申し訳ございませんでした。 ぴかる 03/4/16(水) 12:46 発言
【4985】Re:なにやら・・ れいぞー 03/4/16(水) 13:14 回答
【4986】まあ,凹んだりアツクなったりしないで・・・ こう 03/4/16(水) 13:19 回答
【5004】コードの訂正 m(_ _)m こう 03/4/16(水) 22:44 発言
【4993】ありがとうございました。 ぴかる 03/4/16(水) 17:25 お礼
【4999】デバッグって何? こう 03/4/16(水) 20:57 回答
【5006】Re:デバッグって何? ぴかる 03/4/17(木) 9:10 発言
【5025】ありがとうございます。 青木 03/4/17(木) 19:10 お礼
【5048】Re:ありがとうございます。 bykin 03/4/19(土) 0:05 回答
【5066】Dim xx, yy As Integerは怪しいかった? こう 03/4/20(日) 23:10 発言

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