Здравствуйте, дорогие мои) Прошу помощи. На листе есть вставленная фотография. Можно ли макросом её "выключить", сделать прозрачной, очистить, залить белым цветом (предложите свой вариант), чтобы имя этого объекта не изменилось, в идеале осталась рамка вокруг, а также осталась возможность через контекстное меню изменить рисунок?
Здравствуйте, дорогие мои) Прошу помощи. На листе есть вставленная фотография. Можно ли макросом её "выключить", сделать прозрачной, очистить, залить белым цветом (предложите свой вариант), чтобы имя этого объекта не изменилось, в идеале осталась рамка вокруг, а также осталась возможность через контекстное меню изменить рисунок?Pelena
Макрос делает рисунок белым, но не прозрачным: [vba]
Код
Sub Макрос1() Dim shp As Shape Set shp = ActiveSheet.Shapes("Фото") shp.PictureFormat.Brightness = 1 End Sub
[/vba] P.S. Аналогичное действие в Excel 2013: правой кнопкой по рисунку - Формат рисунка... - справа появится область - раздел Рисунок - Яркость 100%
Макрос делает рисунок белым, но не прозрачным: [vba]
Код
Sub Макрос1() Dim shp As Shape Set shp = ActiveSheet.Shapes("Фото") shp.PictureFormat.Brightness = 1 End Sub
[/vba] P.S. Аналогичное действие в Excel 2013: правой кнопкой по рисунку - Формат рисунка... - справа появится область - раздел Рисунок - Яркость 100%Karataev
Сообщение отредактировал Karataev - Суббота, 19.09.2015, 21:04
Олег, спасибо огромное! Этот вариант меня вполне устраивает [p.s.]А ведь я игралась с контрастностью и яркостью, но, видимо, что-то пошло не так...[/p.s.]
Олег, спасибо огромное! Этот вариант меня вполне устраивает [p.s.]А ведь я игралась с контрастностью и яркостью, но, видимо, что-то пошло не так...[/p.s.]Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Да, но тогда при замене рисунка придётся восстанавливать непрозрачность. Для клиента слишком много лишних телодвижений Но за вариант спасибо, мне всё пригодится - не сейчас, так в будущем
Да, но тогда при замене рисунка придётся восстанавливать непрозрачность. Для клиента слишком много лишних телодвижений Но за вариант спасибо, мне всё пригодится - не сейчас, так в будущем Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Да, такой вариант тоже рассматривала, но это не разовая процедура, тогда придётся этот рисунок таскать вместе с файлом или хранить где-то на скрытом листе
Да, такой вариант тоже рассматривала, но это не разовая процедура, тогда придётся этот рисунок таскать вместе с файлом или хранить где-то на скрытом листеPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816