[ツリー表示へ] [ワード検索] [Home]
タイトル ： Image1.に縦横同じ比率で表示したい 投稿日 ： 2008/01/08(Tue) 13:14 投稿者 ： Do_Shirouto
| いつも教えて頂き有難う御座います。 前回の質問の続きになりますが、 また教えてください。 Image1.Pictureを縦横同じ比率で表示したく '------------------------------------ Private Sub List1_Click() Dim lngW As Long Dim lngJ As Long Picture1.Visible = False Picture1.AutoSize = True Set Picture1.Picture = LoadPicture(strPath & List1.Text) For lngJ = 1 To 20 Step 0.1 lngW = Int(Picture1.Width / lngJ) If lngW < 2416 Then Exit For Next Image1.Width = lngW Image1.Height = Int(Picture1.Height / lngJ) Set Image1.Picture = LoadPicture(strPath & List1.Text) End Sub '------------------------------------- これを実行するとフリーズしてしまいます。 Set Picture1.Picture = LoadPicture(strPath & List1.Text) この時のstrPath & List1.TextのサイズはW=12480：H=18218 ここまでは上手く出来ます。 またImage1.Width = Image1.Height=に定数を入れても出来ます。 計算式が間違っているのでしょうか？ もう一つお願いしたいのですが、 現在Clipboard.SetData LoadPicture(strPath & List1.Text) でClipboard.に.Bmpファイルが入っているのですが、 MS.ワードに貼り付ける方法が分かりません。 この件は過去ログで検索した所、有りましたが 内容が見る事が出来ませんでした ご指導のほど宜しくお願いいたします。 |
をクリックするとツリー全体を一括表示します） - Image1.に縦横同じ比率で表示したい - Do_Shirouto 08/01/08-13:14No.11082