|
自己解決しました。。
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
|
|