- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
Merhaba,
Aşağıdaki kodlar ile yeni bir web sayfası açarak içerisinde resim göstermek istiyorum.
Fakat img yolunu beceremedim.Resmi bir türlü göstermiyor.
Aşağıdaki kodlar ile yeni bir web sayfası açarak içerisinde resim göstermek istiyorum.
Fakat img yolunu beceremedim.Resmi bir türlü göstermiyor.
Kod:
Sub ResimGöster()
Dim IE As Object, dosya
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate ("about:blank")
IE.AddressBar = False
IE.MenuBar = False
IE.Toolbar = False
IE.StatusBar = False
IE.Width = 400
IE.Height = 500
Do While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
IE.Visible = True
Set dosya = IE.Document
dosya.Open
dosya.Write "<html><head><title>Resim</title></head>"
dosya.Write "<body>"
dosya.Write "<div align='center'[COLOR=red]><img src='file:///C:/630001.jpg'[/COLOR]>"
dosya.Write "</body>"
dosya.Write "</html>"
dosya.Close
Set dosya = Nothing
Set IE = Nothing
End Sub