Excel VBA質問箱 IV

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

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


52501 / 76732 ←次へ | 前へ→

【29069】Re:きれいな画像表示
回答  bykin  - 05/9/22(木) 23:53 -

引用なし
パスワード
   こんばんわ。

画像の細かい文字の線が消えたりするんは、どうしようもないんとちゃうかなー
エクセルっていうか、UserFormの表示の限界やと思うよ。

ところで、画像はフォームに直接(イメージコントロール等を使わずに)表示させてるんかな?
フォームのサイズが固定ってことやったら、画像は文字がつぶれないように100%で表示させて、
そのかわりフォームにスクロールバーを付けるってのではどーでっか?
ただし、イメージコントロールが必要になります。

ユーザーフォーム(UserForm1)にイメージコントロール(Image1)を1個配置して、
下記コードで実験してみてください。(各プロパティ設定はデフォルトのまま)

'標準モジュール
Sub test()
  Dim FileName As Variant
  Dim ImageWidth As Single
  Dim ImageHeight As Single
  
  FileName = Application.GetOpenFilename("画像ファイル (*.bmp;*.jpg),*.bmp;*.jpg")
  If Not FileName = False Then
    Load UserForm1
    With UserForm1
      With .Image1
        .BorderStyle = fmBorderStyleNone
        .Picture = LoadPicture(FileName)
        .AutoSize = False
        .AutoSize = True
        .Left = 0
        .Top = 0
        ImageWidth = .Width
        ImageHeight = .Height
      End With
      If .InsideWidth < ImageWidth Then
        .ScrollWidth = ImageWidth
        .ScrollBars = .ScrollBars Or fmScrollBarsHorizontal
      End If
      If .InsideHeight < ImageHeight Then
        .ScrollHeight = ImageHeight
        .ScrollBars = .ScrollBars Or fmScrollBarsVertical
      End If
      .Show
    End With
    Unload UserForm1
    Set UserForm1 = Nothing
  End If
End Sub

画像はフォームの左上に表示されます。画像がはみ出す場合はスクロールバーが表示されます。

試してみてな。
ほな。

0 hits

【29043】きれいな画像表示 よてとん 05/9/22(木) 12:35 質問
【29044】Re:きれいな画像表示 m2m10 05/9/22(木) 12:47 回答
【29050】Re:きれいな画像表示 よてとん 05/9/22(木) 14:13 お礼
【29051】Re:きれいな画像表示 m2m10 05/9/22(木) 14:57 発言
【29069】Re:きれいな画像表示 bykin 05/9/22(木) 23:53 回答
【29070】Re:きれいな画像表示 よてとん 05/9/23(金) 0:12 お礼
【29071】Re:きれいな画像表示 よてとん 05/9/23(金) 0:24 お礼

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