powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинки, exel и 1С
25 сообщений из 38, страница 1 из 2
Картинки, exel и 1С
    #37821235
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте
Никто не подскажет как это можно сделать?
Есть прайс. В нем картинки (обувь). Часть картинок на 2-3 строки (одна модель разного цвета). Надо в др екселевский файл перетащить на каждый цвет отдельную картинку. Т.е. размер ячейки должен быть равен размеру картинки. Как-то можно определить размер этой картинки?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37821244
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что означает заголовок темы?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37821249
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1) Причем тут 1С?
2) Вопрос в том, как определить размер картинки или как в принципе задачу решить?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37821250
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прошу прощения. Не уточнила. все это делаю через 1С7.7
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37821267
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, думаю определить размер картинки надо (высоту). Потом размеры ячейки задам по нему.
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37821275
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть такая штука - AutoFit, можно не определять размер картинки, а просто подогнать ячейку под картинку
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37821293
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, спасибо))
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853690
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не получилось через AutoFit. Этот метод вообще не обращает на картинку внимания. По тексту высоту строки выравнивает, а картинки при этом накладываются друг на друга((
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853701
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну дайте образец файлика что ли....
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853730
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
отправила письмо. там ссылка на прайс) остальное творчество нужно ли не знаю
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853742
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так выложите ссылку-то, в чем проблема, не только ж я специалист
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853768
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853780
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: 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
Картинки, exel и 1С
    #37853785
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
главное чтоб вписывалась.
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853793
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну вот так
Код: 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
Картинки, exel и 1С
    #37853795
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ShipunjaЧасть картинок на 2-3 строки (одна модель разного цвета). Надо в др екселевский файл перетащить на каждый цвет отдельную картинку.То есть в этом случае надо повторить картинку 1-2 раза, чтобы в каждой строке была своя картинка?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853812
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Там у картинок существенно разный размер относительно исходного (где-то 40% - 120%).
Может, привести их к одному фактическому размеру (или одной фактической высоте) и сделать все строки одной высоты?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853823
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Казанский, да, надо повторить 2-3 раза ее. Потом на основании этого файла формируется отчет по остаткам. Остатки могут быть не по всем трем строкам. И у меня сразу картинка слезает на следующую позицию
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853827
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Казанский, Вы имеете в виду приводить к одному размеру картинки во всем файле? Думаю он будет достаточно большой и обработка займет много времени, а на самом деле это не критично. В отчете главное чтобы вообще была картинка и можно было понять о какой модели речь
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853831
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, буду сейчас пробовать)
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853911
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, никак в 1С такое не могу написать)
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853918
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Где код?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853920
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Никак выдернуть картинку нельзя и ее размеры определить? Или картинку уменьшить до размера ячейки?
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853921
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,
ЛистКуда.Cells(СчКуда,КолонкаКартинкиКуда).ColumnWidth = ЛистОткуда.Cells(СчОткуда,КолонкаКартинкиОткуда).ColumnWidth;
ЛистКуда.Rows(СчКуда).RowHeight = ЛистОткуда.Rows(СчОткуда).RowHeight;
ЛистОткуда.Cells(СчОткуда,КолонкаКартинкиОткуда).Copy();
ЛистКуда.Cells(СчКуда,КолонкаКартинкиКуда).Insert();
...
Рейтинг: 0 / 0
Картинки, exel и 1С
    #37853923
Shipunja
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
этот код на 3 строки растягивает картинку
...
Рейтинг: 0 / 0
25 сообщений из 38, страница 1 из 2
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинки, exel и 1С
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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