Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Импорт фото в Excel
 
#1
09.09.2010 18:52:28
Добрый день.  
 
Подскажите, может кто уже сталкивался, как автоматизировать добавление фото в excel?  
 
Нужно, чтобы фотография вставлялась в определенную ячейку с определенными размерами. При этом, вставка должна происходить по запросу, например, сделать так, чтобы над определенными ячейками была кнопка, при нажатии на нее открывается эксплорер, далее выбираем фото, далее фото вставляется в ячейку, расположенную под кнопкой, при этом меняем только высоту фото, а ширина должна подстроится автоматически, с учетом высоты.
 
 
 
#2
09.09.2010 18:57:04
Кажется подобную фичу видел на сайте у мастера Йодо. Ссылку на сайт Вам, кажется, вчера давал:) Ну и на Планете можно примеры поискать. Решали подобные задачи:)  
Игорь67
 
 
 
#3
09.09.2010 19:17:25
{quote}{login=}{date=09.09.2010 06:57}{thema=}{post}Кажется подобную фичу видел на сайте у мастера Йодо. Ссылку на сайт Вам, кажется, вчера давал:) Ну и на Планете можно примеры поискать. Решали подобные задачи:)  
Игорь67{/post}{/quote}  
Игорь67, на планете искал, есть решения, но они не совсем то, что нужно...  
Посмотрел сайт, поиск по запросу "фото" не выдает ничего.
 
 
 
#4
09.09.2010 21:12:34
{quote}{login=BioVR}{date=09.09.2010 07:17}{thema=Re: }{post}{quote}{login=}{date=09.09.2010 06:57}{thema=}{post}{/post}{/quote}Посмотрел сайт, поиск по запросу "фото" не выдает ничего.{/post}{/quote} <BR>Странно это. А почему у меня находит? http://yandex.ru/sitesearch?text=%F4%EE%F2%EE+%E2+%FF%F7%E5%E9%EA%F3&searchid=84804&web=0&lr=22
 
 
 
#5
10.09.2010 11:00:17
{quote}{login=Юрий М}{date=09.09.2010 09:12}{thema=Re: Re: }{post}{quote}{login=BioVR}{date=09.09.2010 07:17}{thema=Re: }{post}{quote}{login=}{date=09.09.2010 06:57}{thema=}{post}{/post}{/quote}Посмотрел сайт, поиск по запросу "фото" не выдает ничего.{/post}{/quote} <BR>Странно это. А почему у меня находит? http://yandex.ru/sitesearch?text=%F4%EE%F2%EE+%E2+%FF%F7%E5%E9%EA%F3&searchid=84804&web=0&lr=22{/post}{/quote}  
Юрий, я имел ввиду не планету, а сайт, который мне рекомендовали в другом посте.  
На планете выдает, но не то, что нужно.  
В общем, есть не большая наработка в этом плане. Пример в приложении. Пока не получается доделать следующее:  
1. Вставка фото с кнопки (чтобы фотка вставлялась в ячейку под кнопкой, при этом кнопок может быть много);  
2. Вставка нескольких фотографий одновременно (чтобы вставлялись друг на друга выбранные фотки, а лучше, чтобы вставлялись рядом уходя в право (но в возможности такого варианта сомневаюсь)).  
Помогите, плиз, доделать.  
 
В примере работает двойным нажатием на ячейку.
 
 
 
#6
10.09.2010 11:11:46
Нечто подобное можно найти здесь:    
http://programmersforum.ru/showpost.php?p=347651&postcount=3    
http://programmersforum.ru/showpost.php?p=435207&postcount=2    
А вот пример того, что вам нужно:    
http://www.programmersforum.ru/showpost.php?p=314382&postcount=4    
Пример файла для тестирования можете скачать по этой ссылке:    
http://excelvba.ru/XL_Files/InsertPics.rar
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
10.09.2010 11:23:15
{quote}{login=EducatedFool}{date=10.09.2010 11:11}{thema=}{post}Нечто подобное можно найти здесь:    
http://programmersforum.ru/showpost.php?p=347651&postcount=3    
http://programmersforum.ru/showpost.php?p=435207&postcount=2    
А вот пример того, что вам нужно:    
http://www.programmersforum.ru/showpost.php?p=314382&postcount=4    
Пример файла для тестирования можете скачать по этой ссылке:    
http://excelvba.ru/XL_Files/InsertPics.rar{/post}{/quote}  
EducatedFool, спасибо, посмотрел, но это не совсем то, что нужно.  
Нужен именно выбор фото (как одной, так и нескольких) - в моем примере возможен выбор одной, т.к. заранее их имена не известны. И опять же, вариант с кнопкой - как сделать так, чтобы фото/фотки вставлялись под кнопкой?
 
 
 
#8
13.09.2010 13:36:15
Подскажите, плиз, как вызвать варианты сохранения фото?  
 
Private Sub InsertPicture(ByVal Target As Range)  
 
Dim Pict As Picture  
Dim PictFileName As Variant  
Dim ImgFileFormat As String  
Dim PictCell As Range  
Dim Ans As Integer  
Dim Ratio As Double  
 
ActiveSheet.Unprotect  
ImgFileFormat = "Image Files (*.bmp;*.gif;*.jpg),*.bmp;*.gif;*.jpg, All Files (*.*),*.*"  
 
GetPict:  
PictFileName = Application.GetOpenFilename(ImgFileFormat)  
If PictFileName = False Then Exit Sub  
 
Ans = MsgBox("Open : " & PictFileName, vbYesNo, "Insert Picture")  
If Ans = vbNo Then Exit Sub  
 
GetCell:  
Target.Select  
Set Pict = ActiveSheet.Pictures.Insert(PictFileName)  
Pict.Select  
 
Такой код работает на вставку самой фото в 2003, 2007 excel. Но в 2010 вставляет как "Связать с файлом". Нужен обычный вариант вставки, подскажите, плиз, как его указать?
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...