Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить рамку и тень в примечаниях программно
 
#1
21.05.2016 20:01:43
Здравствуйте, уважаемые мастера екселя!
Возможно ли программно удалить границы и тень примечаний?
Может у кого есть готовое решение этому вопросу или кто поможет с написанием кода.
Помогите пожалуйста!
Изменено: Лариса - 21.05.2016 20:03:08
 
 
 
#2
21.05.2016 20:08:54
Там скорее всего после экспорта картинки из примечания в ее свойствах нужно убрать рамку и тень
 
 
 
#3
21.05.2016 20:10:50
Где пример?
Кто не дает хоть что-то - записать макрорекордером, а потом уж сюда, с вопросом?
Я сам - дурнее всякого примера! ...
 
 
 
#4
21.05.2016 20:20:06
В свойствах примечания можно убрать только рамку, тень не убирается.
Уважаемый kuklp, я посчитала, что типовой вид примечания достаточно известен всем, поэтому с примером не стала напрягать.
Ну вот как бы и пример...
 
 
 
#5
21.05.2016 20:24:15
Если я правильно понял, то Вам нужно рамку и тень убрать из картинки, после того как выгрузили ее из примечания?
Тогда тень и рамку не в примечании нужно убирать, а в самой картинке...
 
 
 
#6
21.05.2016 20:28:46
Изначально в картинке  (перед ее вставкой в примечание) нету рамки и тени. Они (рамка и тень) появляются уже в примечаниях. Надо это для лучшей эстетики вида самого примечания с картинкой и да, после выгрузки на лист, фото получается с рамкой и тенью, что совсем нехорошо. А как можно убрать рамку с выгруженной картинки? Только обрезкой, совсем не представляю такого...
Изменено: Лариса - 21.05.2016 20:30:49
 
 
 
#7
21.05.2016 20:33:19
Если не горит, то завтра посмотрю
 
 
 
#8
21.05.2016 20:34:52
ну как горит не горит...если никто не поможет буду ждать Вашего решения до завтра...
 
 
 
#9
21.05.2016 20:35:20
Удалить тень:
Код
Selection.ShapeRange.Shadow.Visible = msoFalse
 
 
 
#10
21.05.2016 20:37:55
не работает... ошибка, в том числе и при выделении ячеек с примечаниями...
 
 
 
#11
21.05.2016 20:39:49
Работает. С выделенным примечанием в данном случае. Я же только принцип показл.
 
 
 
#12
21.05.2016 20:42:47
да, точно, с выделенным примечанием работает) спасибо за показ принципа. Осталось узнать как все примечания на листе выделить))
 
 
 
#13
21.05.2016 20:49:06
Код
 Sub qqqqq()
 Dim sha As Shape
    For Each sha In ActiveSheet
        sha.ShapeRange.Shadow.Visible = msoFalse
    Next
End Sub
Изменено: Ivan.kh - 21.05.2016 20:50:02
 
 
 
#14
21.05.2016 20:50:40
вот на этом втыкается
Код
For Each sha In ActiveSheet
 
 
 
#15
21.05.2016 20:51:47
Цитата
Лариса написал:
я посчитала, что типовой вид примечания достаточно известен всем
Я тоже посчитал, что все знают, как перебрать примечания на листе ))
Код
Sub qqq()
Dim x As Shape
    For Each x In ActiveSheet.Shapes
        x.Shadow.Visible = msoFalse
    Next
End Sub
 
 
 
#16
21.05.2016 20:52:29
У меня не "воткнётся" ))
 
 
 
#17
21.05.2016 20:59:56
Цитата
Лариса написал:
вот на этом втыкается
с телефона писал, не проверял...
 
 
 
#18
21.05.2016 21:24:40
Юрий, спасибо огромное! Не воткнулся)) красота!!
 
 
 
#19
21.05.2016 21:27:45
:D
 
 
 
Страницы: 1
Наверх