Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинки, exel и 1С / 25 сообщений из 38, страница 1 из 2
  1  все
01.06.2012, 12:14
    #37821235
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Здравствуйте
Никто не подскажет как это можно сделать?
Есть прайс. В нем картинки (обувь). Часть картинок на 2-3 строки (одна модель разного цвета). Надо в др екселевский файл перетащить на каждый цвет отдельную картинку. Т.е. размер ячейки должен быть равен размеру картинки. Как-то можно определить размер этой картинки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2012, 12:15
    #37821244
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Что означает заголовок темы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2012, 12:16
    #37821249
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
1) Причем тут 1С?
2) Вопрос в том, как определить размер картинки или как в принципе задачу решить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2012, 12:16
    #37821250
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Прошу прощения. Не уточнила. все это делаю через 1С7.7
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2012, 12:21
    #37821267
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Shocker.Pro, думаю определить размер картинки надо (высоту). Потом размеры ячейки задам по нему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2012, 12:22
    #37821275
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Есть такая штука - AutoFit, можно не определять размер картинки, а просто подогнать ячейку под картинку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2012, 12:26
    #37821293
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Shocker.Pro, спасибо))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 17:32
    #37853690
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Не получилось через AutoFit. Этот метод вообще не обращает на картинку внимания. По тексту высоту строки выравнивает, а картинки при этом накладываются друг на друга((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 17:40
    #37853701
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
ну дайте образец файлика что ли....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 17:56
    #37853730
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
отправила письмо. там ссылка на прайс) остальное творчество нужно ли не знаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 18:08
    #37853742
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Так выложите ссылку-то, в чем проблема, не только ж я специалист
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 18:28
    #37853768
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
http://files.mail.ru/XBMBUA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 18:38
    #37853780
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Код: vbnet
1.
2.
3.
4.
Dim sh As Shape
For Each sh In Worksheets(1).Shapes
  sh.TopLeftCell.Rows(1).RowHeight = sh.Height
Next

вот такой нехитрый макрос выполняет ТЗ: размер ячейки должен быть равен размеру картинки.

но хочу обратить внимание, что так как картинка расположена в ячейке не строго, а с некоторым отступом, то картинка начинает вылезать снизу ровно на тот же отступ.

То есть определитесь, что вы хотите:
1) сделать так, чтобы низ ячейки соответствовал размеру картинки
2) сделать так, чтобы картинка строго вписывалась в ячейку
3) сделать так, чтобы поле снизу было такое же, как сверху
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 18:41
    #37853785
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
главное чтоб вписывалась.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 18:47
    #37853793
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
ну вот так
Код: vbnet
1.
2.
3.
4.
Dim sh As Shape
For Each sh In Worksheets(1).Shapes
  sh.TopLeftCell.Rows(1).RowHeight = sh.Height + (sh.Top - sh.TopLeftCell.Top)
Next

верхнее поле остается какое попало, нижнее ровно по размеру картинки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 18:48
    #37853795
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
ShipunjaЧасть картинок на 2-3 строки (одна модель разного цвета). Надо в др екселевский файл перетащить на каждый цвет отдельную картинку.То есть в этом случае надо повторить картинку 1-2 раза, чтобы в каждой строке была своя картинка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 19:04
    #37853812
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Там у картинок существенно разный размер относительно исходного (где-то 40% - 120%).
Может, привести их к одному фактическому размеру (или одной фактической высоте) и сделать все строки одной высоты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 19:11
    #37853823
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Казанский, да, надо повторить 2-3 раза ее. Потом на основании этого файла формируется отчет по остаткам. Остатки могут быть не по всем трем строкам. И у меня сразу картинка слезает на следующую позицию
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 19:13
    #37853827
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Казанский, Вы имеете в виду приводить к одному размеру картинки во всем файле? Думаю он будет достаточно большой и обработка займет много времени, а на самом деле это не критично. В отчете главное чтобы вообще была картинка и можно было понять о какой модели речь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 19:16
    #37853831
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Shocker.Pro, буду сейчас пробовать)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 20:32
    #37853911
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Shocker.Pro, никак в 1С такое не могу написать)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 20:43
    #37853918
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Где код?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 20:44
    #37853920
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Никак выдернуть картинку нельзя и ее размеры определить? Или картинку уменьшить до размера ячейки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 20:46
    #37853921
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
Shocker.Pro,
ЛистКуда.Cells(СчКуда,КолонкаКартинкиКуда).ColumnWidth = ЛистОткуда.Cells(СчОткуда,КолонкаКартинкиОткуда).ColumnWidth;
ЛистКуда.Rows(СчКуда).RowHeight = ЛистОткуда.Rows(СчОткуда).RowHeight;
ЛистОткуда.Cells(СчОткуда,КолонкаКартинкиОткуда).Copy();
ЛистКуда.Cells(СчКуда,КолонкаКартинкиКуда).Insert();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2012, 20:47
    #37853923
Shipunja
Shipunja
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинки, exel и 1С
этот код на 3 строки растягивает картинку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинки, exel и 1С / 25 сообщений из 38, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 484ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2175465]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 330ms
total:  484ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]