| |
▼Abebobo さん：
>エクセルに貼り付けてある画像を調べることってできますか？
なんかなんとかって種類に自動で返還されちゃうみたいなので、
出来ないんじゃないかと？？？
おまけ
前に作ったやつをほったらかしたままなので完璧では無いです。
適当に画像が見れればいいというやつです。
画像回覧用ユーザーフォーム
フォーム上コントロール
Frame1 を作り、その中に Image1 を作る。
Frame1のプロパティ KeepScrolBarsVisible を３に設定。
（右、下にスクロールバーが表示される。）
フレームの下に
CommandButton1、3、4、5 配置。（3,4,5は、まだ未完。）
フレームの大きさ、適当だけれど、150x150ぐらいでいいんじゃないかと。
そのぐらいの大きさで作るのを想定したコードなので。
☓☓画像こっそり回覧バージョン？？
フレームの右辺りに
ListBox1（画像ファイル名展開）
その下に CommandButton2
１番下にTextBox1。（画像フォルダプルパス記入用）
使用法、
CommandButton1を押して、画像が入っているフォルダを指定するか、
直接、TextBox1のフォルダのフルパスを記入。
これを見て、回覧用ファイルを検索し、ListBox1に表示します。
リストボックスに表示されたファイルを選択すると、イメージに読み込まれます。
尚、ろくにエラー処理を入れて無いと思う。
標準モジュール
Sub formshow()
UserForm1.Show
End Sub
Function Fold_Get() As String
Dim CrObj As Object, GetNam As Variant
Set CrObj = CreateObject("Shell.Application"). _
BrowseForFolder(0, "フォルダを選択してください", 0)
If Not CrObj Is Nothing Then
Fold_Get = CrObj.self.Path
End If
DoEvents
Set CrObj = Nothing
End Function
フォームモジュール
Private Sub CommandButton1_Click()
TextBox1.Value = Fold_Get
End Sub
Private Sub CommandButton2_Click()
Dim FNM As Object, FPas As String
If TextBox1.Value = "" Then Exit Sub
FPas = TextBox1.Value
ListBox1.Clear
For Each FNM In CreateObject("Scripting.FileSystemObject").GetFolder(FPas).Files
If Right(Dir(FNM), 4) = ".jpg" Or Right(Dir(FNM), 4) = ".bmp" Or _
Right(Dir(FNM), 4) = ".gif" Then
ListBox1.AddItem Dir(FNM)
End If
Next
End Sub
'画像クリア
Private Sub CommandButton3_Click()
Image1.Picture = Nothing
ListBox1.ListIndex = -1
End Sub
'全体
Private Sub CommandButton4_Click()
Dim IMHI As Double, IMWd As Double
With Image1
.AutoSize = False
.PictureSizeMode = 3
.Height = Frame1.Height
.Width = Frame1.Width
IMHI = .Height
IMWd = .Width
End With
With Frame1
.ScrollHeight = IMHI
.ScrollWidth = IMWd
.ScrollTop = 0
.ScrollLeft = 0
End With
End Sub
'標準
Private Sub CommandButton5_Click()
Image1.PictureSizeMode = 1
End Sub
Private Sub ListBox1_Click()
Dim Adst As String
Dim IMHI As Double, IMWd As Double
Adst = TextBox1.Value
If Len(Adst) = 0 Then Exit Sub
Adst = Adst & "\" & ListBox1.List(ListBox1.ListIndex)
With Image1
.Picture = LoadPicture(Adst)
.PictureSizeMode = 0
.AutoSize = True
.Left = 0
.Top = 0
IMHI = .Height
IMWd = .Width
End With
With Frame1
.ScrollHeight = IMHI
.ScrollWidth = IMWd
.ScrollTop = 0
.ScrollLeft = 0
End With
End Sub
菅野美穂
テレビドラマで、陰険な役ばかり演じていたのを見てきたので、
そのまんまが印象が残っていて、
陰険な奴やな〜！
こいつダメ。
と、良い印象が残ってないのです。
|
|
Jaka
- 10/11/15(月) 14:15 -
