Здравствуйте
не могу понять причину ошибки "Указанный файл не найден" при вставке через ActiveSheet.Shapes.AddPicture
файл открывается в браузере
да и по аналогичной ссылке другая картинка вставляется нормально
в макросе первые две загружаются, а третья не хочет. почему?
спасибо всем откликнувшимся
не могу понять причину ошибки "Указанный файл не найден" при вставке через ActiveSheet.Shapes.AddPicture
файл открывается в браузере
да и по аналогичной ссылке другая картинка вставляется нормально
| Код |
|---|
Sub test() Set Rng2 = [B2] PicLocation = "http://www.programmersforum.ru/image.php?u=32780&dateline=1263923961" Call ActiveSheet.Shapes.AddPicture(PicLocation, msoFalse, msoCTrue, Rng2.Left, Rng2.Top, Rng2.Width, Rng2.Height) PicLocation = "http://thumbnail.image.rakuten.co.jp/@0_mall/putistyle/cabinet/ikou01/10009882.jpg?_ex=112x112" Call ActiveSheet.Shapes.AddPicture(PicLocation, msoFalse, msoCTrue, Rng2.Left, Rng2.Top, Rng2.Width, Rng2.Height) PicLocation = "http://thumbnail.image.rakuten.co.jp/@0_mall/putistyle/cabinet/cabinet2/img60499371.jpg?_ex=112x112" Call ActiveSheet.Shapes.AddPicture(PicLocation, msoFalse, msoCTrue, Rng2.Left, Rng2.Top, Rng2.Width, Rng2.Height) End Sub |
спасибо всем откликнувшимся
