Excel VBA質問箱 IV

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

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


2841 / 13645 ツリー ←次へ | 前へ→

【65631】外部ファイル無しで画像を表示したーい 16才♀ 10/6/17(木) 1:36 質問[未読]
【65663】Re:外部ファイル無しで画像を表示したーい 16才♀ 10/6/19(土) 3:59 回答[未読]

【65631】外部ファイル無しで画像を表示したーい
質問  16才♀  - 10/6/17(木) 1:36 -

引用なし
パスワード
   ソースだけでユーザーフォームに画像を表示したいんですっ
とりあえず検索したら元々フォームに貼ってある画像をAPIでいじくることはできるっぽいんですけど
元がないとピクチャーハンドル?が得られなくて何もできません><
何かいい方法はありませんでしょうか

【65663】Re:外部ファイル無しで画像を表示したーい
回答  16才♀  - 10/6/19(土) 3:59 -

引用なし
パスワード
   自己解決しました。。

Sub 無から生れし者()
Dim a As String, b As String, c As Object, d As Shape
Application.DisplayAlerts = False
Application.ScreenUpdating = False
b = ThisWorkbook.Path & "\qpspsajfpsleia"
Set d = Sheets("sheet2").Shapes.AddShape(msoShapeRectangle, 0, 0, 300, 450)
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "" & b & ".html", "Sheet2", "", xlHtmlStatic, "aaa")
.Publish (True)
.AutoRepublish = False
End With
d.Delete
With UserForm1
Set .Picture = LoadPicture("" & b & ".files\aaa_image002.gif")
.Show 0
End With
Set c = CreateObject("Scripting.FileSystemObject")
c.DeleteFolder ("" & b & ".files")
Kill pathname:="" & b & ".HTML"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

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