Vstavljanje slike (Excel 2007)

[Stenly]

Pozdravljeni

Se mučim z excelom 2007. Želel bi vstaviti sliko z interneta, pa ne gre.

Koda: Izberi vse

Sub Vstsavi_Sliko()
'
Set myDocument = Worksheets("List1")
myDocument.Shapes.AddPicture _
    "C:\Vreme.gif", _
    True, True, 200, 200, 200, 70
End Sub

To dela

Koda: Izberi vse

Sub Vstsavi_Sliko()
'
Set myDocument = Worksheets("List1")
myDocument.Shapes.AddPicture _
    "http://img.rtvslo.si/cache/vreme_v2.png", _
    True, True, 200, 200, 200, 70
End Sub

to pa ne.

Je potrebno za internetno povezavo odkljukat kako referenco? Na prejšnih excel-ih to deluje.

Lp

[admin]

Glede na vaš opis, kaj dela in kaj ne, bi rekel, da Excel ne zna brati .PNG datotek, saj je razlika samo v končnici.

[Stenly]

...ne vem; ampak če sliko (http://img.rtvslo.si/cache/vreme_v2.png) vstavim ročno preko menijev, zadeva deluje .

Lp

[admin]

O bog Ob takšnileh "problemih" se zopet opomnim - 'ne uporabljaj Excel-a 2007' in se zahvalim da še ne uporabljam tega sr..ja

No kakorkoli. Excel 2007 je tako poln hroščev, da me boli vsakič ko ga zaženem. In da tudi vi ste naleteli na hrošča, ki pa na srečo ima rešitev:

Koda: Izberi vse

Sub Vstsavi_Sliko()
  Dim slika As Shape
  Set slika = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 200, 200, 200, 70)
  slika.Fill.UserPicture "http://img.rtvslo.si/cache/vreme_v2.png"
End Sub

To je to. Na srečo deluje. MS Hvala za MS Office 2007 in hvala za Visto, toda daj jih drugim ne meni :)

[Stenly]

No kakorkoli. Excel 2007 je tako poln hroščev, da me boli vsakič ko ga zaženem. In da tudi vi ste naleteli na hrošča, ki pa na srečo ima rešitev...

Se zahvaljujem za informacijo.
Glede na moje znanje, pa jaz ne morem vedeti - ali je hrošček, ali pa gre za moje neznanje. Očitno pa Ex. 2007 res ni prav dober, saj je to že drugi hrošček, ki ste mi ga definirali.

Lp