Найти тему
Игры в Excel
47 подписчиков

Изрекатель истин (часть 2. Окончание)

9
~1 мин

Пару недель назад мы с вами подробно разобрали как сделать ПоэтикаСветика, который извлекает в случайном порядке картинки с текстами (можно и без них, но тогда теряется смысл всей задумки)

Однако, мы не "довели работу до ума".

>>1/8 – Картинки, если им не указать размер, будут вставляться в исходном виде: одни - мелкие, другие - не поместятся на экран. Левый верхний угол "замусорен"служебным текстом/>>
>>1/8 – Картинки, если им не указать размер, будут вставляться в исходном виде: одни - мелкие, другие - не поместятся на экран. Левый верхний угол "замусорен"служебным текстом/>>
<<2/8 – Для начала выделим весь столбец А (или только три служебные ячейки) и зададим шрифту тот же цвет, что и фон >>
<<2/8 – Для начала выделим весь столбец А (или только три служебные ячейки) и зададим шрифту тот же цвет, что и фон >>
<< 3/8 – Теперь, чтобы случайно не стереть или не перезаписать содержимое служебных ячеек, закроем их "щитом". Для этого вставим прямоугольничек >>
<< 3/8 – Теперь, чтобы случайно не стереть или не перезаписать содержимое служебных ячеек, закроем их "щитом". Для этого вставим прямоугольничек >>

Итак, ключевыми строками единственного значимого макроса являются

ActiveSheet.Pictures.Insert(nama).Select (где nama - адрес вставляемой картинки)

Selection.Name = "стишок" (имя для последующего обращения к ней)

Selection.ShapeRange.Height = 350 (высота вставляемой картинки)