[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2006/10/06(Fri) 17:55
投稿者名：ｋ
Ｅメール：
ＵＲＬ　：
タイトル：サイズ変更時
VBを習いはじめて5ヶ月の者です。

Excelでグラフを作成しピクチャーボックスに表示で、
フォームのサイズを変更すると、「プロシージャーの呼び出し、または
引数が不正です。」と出るのですが、なぜかわかりません。
教えてください。

投稿時間：2006/10/06(Fri) 18:15
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: サイズ変更時
> フォームのサイズを変更すると、「プロシージャーの呼び出し、または
> 引数が不正です。」と出るのですが、なぜかわかりません。

エラーが発生している部分のコードを提示下さい。

投稿時間：2006/10/06(Fri) 18:18
投稿者名：ｋ
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: サイズ変更時
> > フォームのサイズを変更すると、「プロシージャーの呼び出し、または
> > 引数が不正です。」と出るのですが、なぜかわかりません。
>
> エラーが発生している部分のコードを提示下さい。

Private Sub Form_Resize()
    'フォームのサイズに合せてPictureBoxのサイズ(グラフ)を変更
    Form1.Picture1.Move 100, 100, Me.Width - 350, Me.Height - 1000
End Sub
です。

投稿時間：2006/10/06(Fri) 18:44
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: サイズ変更時
下記のように変更して見て下さい。
（ヘルプで理由を調べて下さい）

Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized Then
        'フォームのサイズに合せてPictureBoxのサイズ(グラフ)を変更
        Form1.Picture1.Move 100, 100, Me.Width - 350, Me.Height - 1000
    End If
End Sub

投稿時間：2006/10/06(Fri) 18:52
投稿者名：ｋ
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: サイズ変更時
> 下記のように変更して見て下さい。
> （ヘルプで理由を調べて下さい）
>
> Private Sub Form_Resize()
>     If Me.WindowState <> vbMinimized Then
>         'フォームのサイズに合せてPictureBoxのサイズ(グラフ)を変更
>         Form1.Picture1.Move 100, 100, Me.Width - 350, Me.Height - 1000
>     End If
> End Sub

解決しました。後は自分で検証します。
ありがとうございました。