タイトル : Re^2: Image1.に縦横同じ比率で表示したい 投稿日 : 2008/01/11(Fri) 08:53 投稿者 : Do_Shirouto
> > これを実行するとフリーズしてしまいます。 > > 単に、 > > Dim lngJ As Long > なので、 > > > For lngJ = 1 To 20 Step 0.1 > がカウントアップされないからでは? > > #整数の「1」に「0.1」を加えて、整数に戻せばやっぱり「1」のままです。 > #いつまで経っても20にはならない・・・ 大吉末吉 さん有難う御座いました。 変数を変えて上手くいきました。本当に有難う御座いました。 もう一つの質問ですが、 現在Clipboard.SetData LoadPicture(strPath & List1.Text) でClipboard.に.Bmpファイルが入っているのですが、 MS.ワードに貼り付ける方法が分かりません。 この件は過去ログで検索した所、有りましたが 内容が見る事が出来ませんでした ご指導のほど宜しくお願いいたします。 |