Страницы: 1
RSS
Если вы знаете API Яндекс и у вас есть ключ
 
Веб запрос возвращает картинку, как реализовать этот запрос в excel-е что бы увидеть картинку либо в ячейке или в примечание ее залить?  
http://static-maps.yandex.ru/1.x/?ll=37.620070,55.753630&size=450,450&z=13&l=map&pt=37.64,55.766363,pmwtm99&key=
 
Значит вышеуказанная задача решена, возникла другая необходимость, как вставить картинку в примечание, с рабочего листа, если известно имя картинки
 
Теперь возникла третья проблема, у меня есть на листе картинка, я хочу ее сохранить в файл jpg, как это сделать?
 
http://www.excel-vba.ru/chto-umeet-excel/kak-soxranit-kartinki-iz-lista-excel-v-kartinki-jpg/
 
{quote}{login=Николай}{date=28.09.2011 06:25}{thema=}{post}Значит вышеуказанная задача решена, возникла другая необходимость, как вставить картинку в примечание, с рабочего листа, если известно имя картинки{/post}{/quote}  
если решена третья проблема (см. ссылку выше), то вставить картинку с диска не так уж и сложно: макрорекордер поможет :-)
 
Что то не получается, пишу макрорекодером последовательность добавления картинки в примечание. После запускаю макрос, а он не работает!
 
Sub Макрос1()  
'  
' Макрос1 Макрос  
'  
 
'  
   Selection.AddComment  
   Selection.Comment.Visible = False  
   Selection.Comment.Text Text:="nborodin:" & Chr(10) & ""  
   Selection.ShapeRange.Fill.Transparency = 0#  
   Selection.ShapeRange.Line.Weight = 0.75  
   Selection.ShapeRange.Line.DashStyle = msoLineSolid  
   Selection.ShapeRange.Line.Style = msoLineSingle  
   Selection.ShapeRange.Line.Transparency = 0#  
   Selection.ShapeRange.Line.Visible = msoTrue  
   Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)  
   Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)  
   Selection.ShapeRange.Fill.Visible = msoTrue  
   Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)  
   Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 225)  
   Selection.ShapeRange.Fill.UserPicture _  
       "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg"  
End Sub  
Вот этот код записывается макрорекодером, только он не работает, начиная с четвертой строки, выскакивает ошибка 438: object doesn't support this property methob
 
А немного поэкспериментировать?  
Sub Макрос1()  
   With ActiveCell  
       .AddComment  
       .Comment.Visible = False  
       .Comment.Text Text:="nborodin:" & Chr(10) & ""  
   End With  
   With ActiveCell.Comment.Shape  
       .Fill.UserPicture "C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\Водяные лилии.jpg"  
   End With  
End Sub  
P.S. Если в ячейке УЖЕ есть комментарий, то первый блок With закомментировать. Рисунок и путь укажите свой.
 
Спасибо большое, разобрался. если интересно могу выложить макрос. суть его в том, что я из базы данных выгружаю данные. например наименование транспорта, дата и время стоянки, длительность стоянки, долгота и широта. с помощю макроса, я делаю запрос на яндекс геокодер и получаю адрес точки, и делаю запрос на яндекс статикмэп и получаю картинку с картой местоположения. картинка заливается в примечание ячейки с адресом.
 
{quote}{login=Юрий М}{date=28.09.2011 10:49}{thema=}{post}http://www.excel-vba.ru/chto-umeet-excel/kak-soxranit-kartinki-iz-lista-excel-v-kartinki-jpg/{/post}{/quote}  
 
не понял зачем создается новая книга?
Живи и дай жить..
 
Слэн, вопрос к Диме :-) Может "мусор" остался?
 
Так надо создавать книгу или нет? это лишнее время. Если есть вариант без создания книги, покажите пожалуйста!
 
огромное спасибо
Страницы: 1
Читают тему
Наверх