Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сделать фон примечания прозрачным - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сделать фон примечания прозрачным (Макросы/Sub)
Сделать фон примечания прозрачным
Vladimir7200 Дата: Среда, 22.04.2015, 15:26 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, скажите как можно программными средствами сделать фон примечания прозрачным (без заливки) и без рамки вокруг? Файл прикрепить не получается, слишком большой. Привожу часть кода:

[vba]
Код
With cell
OldComment = .Comment.Text & Chr(10)
.AddComment
.Comment.Text Text:=OldComment & Format(Range("AJ" & Target.Row), "dd.mm")
.Comment.Text oComment.Text & Chr(10) & .Comment.Text & Format(Range("AJ" & Target.Row), "dd.mm")
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Shape.Top = .Top - 5
.Comment.Shape.Left = .Left + .Width - 5
.Comment.Shape.TextFrame.Characters.Font.Size = 7
End With
Next cell
End Sub
[/vba]
[moder]Что значит "большой"? Зачем нам весь Ваш файл с кучей неотносящейся к теме вопроса информации?
И почему код не обделан тегами?


Сообщение отредактировал Vladimir7200 - Среда, 22.04.2015, 16:41
 
Ответить
СообщениеЗдравствуйте, скажите как можно программными средствами сделать фон примечания прозрачным (без заливки) и без рамки вокруг? Файл прикрепить не получается, слишком большой. Привожу часть кода:

[vba]
Код
With cell
OldComment = .Comment.Text & Chr(10)
.AddComment
.Comment.Text Text:=OldComment & Format(Range("AJ" & Target.Row), "dd.mm")
.Comment.Text oComment.Text & Chr(10) & .Comment.Text & Format(Range("AJ" & Target.Row), "dd.mm")
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Shape.Top = .Top - 5
.Comment.Shape.Left = .Left + .Width - 5
.Comment.Shape.TextFrame.Characters.Font.Size = 7
End With
Next cell
End Sub
[/vba]
[moder]Что значит "большой"? Зачем нам весь Ваш файл с кучей неотносящейся к теме вопроса информации?
И почему код не обделан тегами?
Автор - Vladimir7200
Дата добавления - 22.04.2015 в 15:26
Vladimir7200 Дата: Среда, 22.04.2015, 15:47 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Попробую прикрепить. А теги вверху и внизу, код большой весь писать не стал
 
Ответить
СообщениеПопробую прикрепить. А теги вверху и внизу, код большой весь писать не стал
Автор - Vladimir7200
Дата добавления - 22.04.2015 в 15:47
ShAM Дата: Среда, 22.04.2015, 15:51 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата Vladimir7200, 22.04.2015 в 15:47, в сообщении № 2
А теги вверху и внизу
Это Вы о чем? Когда пишете сообщение, чуть выше есть разные значки, среди них "#". Выделяете свой код и жмете на этот значок, сохраняете измененное сообщение, смотрите результат.
 
Ответить
Сообщение
Цитата Vladimir7200, 22.04.2015 в 15:47, в сообщении № 2
А теги вверху и внизу
Это Вы о чем? Когда пишете сообщение, чуть выше есть разные значки, среди них "#". Выделяете свой код и жмете на этот значок, сохраняете измененное сообщение, смотрите результат.
Автор - ShAM
Дата добавления - 22.04.2015 в 15:51
Vladimir7200 Дата: Среда, 22.04.2015, 15:53 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Файл прикрепил
К сообщению приложен файл: 1_2_2014.xlsb (38.7 Kb)
 
Ответить
СообщениеФайл прикрепил
Автор - Vladimir7200
Дата добавления - 22.04.2015 в 15:53
Vladimir7200 Дата: Среда, 22.04.2015, 16:00 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
В правилах просто написано оформляйте код тегами, а как не написано, я врач и мало понимаю что такое теги. Извините!
[moder]Вам уже все объяснили.
А в Правилах не пробовали нажать на слова "Обязательно используйте ..."? попадете на объяснялку
Исправляйте свой первый пост


Сообщение отредактировал _Boroda_ - Среда, 22.04.2015, 16:09
 
Ответить
СообщениеВ правилах просто написано оформляйте код тегами, а как не написано, я врач и мало понимаю что такое теги. Извините!
[moder]Вам уже все объяснили.
А в Правилах не пробовали нажать на слова "Обязательно используйте ..."? попадете на объяснялку
Исправляйте свой первый пост
Автор - Vladimir7200
Дата добавления - 22.04.2015 в 16:00
ShAM Дата: Среда, 22.04.2015, 16:11 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата Vladimir7200, 22.04.2015 в 16:00, в сообщении № 5
я врач и мало понимаю что такое теги
Из моего сообщения что не понятно?
 
Ответить
Сообщение
Цитата Vladimir7200, 22.04.2015 в 16:00, в сообщении № 5
я врач и мало понимаю что такое теги
Из моего сообщения что не понятно?
Автор - ShAM
Дата добавления - 22.04.2015 в 16:11
Vladimir7200 Дата: Среда, 22.04.2015, 16:38 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вроде все замечания исправил. По делу предложения будут?
 
Ответить
СообщениеВроде все замечания исправил. По делу предложения будут?
Автор - Vladimir7200
Дата добавления - 22.04.2015 в 16:38
Vladimir7200 Дата: Среда, 22.04.2015, 16:56 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата ShAM, 22.04.2015 в 16:11, в сообщении № 6
Из моего сообщения что не понятно?

Все понятно, ShaM. Кроме как замечания делать еще что-то умеем? Решение подскажите.


Сообщение отредактировал Vladimir7200 - Среда, 22.04.2015, 16:58
 
Ответить
Сообщение
Цитата ShAM, 22.04.2015 в 16:11, в сообщении № 6
Из моего сообщения что не понятно?

Все понятно, ShaM. Кроме как замечания делать еще что-то умеем? Решение подскажите.
Автор - Vladimir7200
Дата добавления - 22.04.2015 в 16:56
RAN Дата: Среда, 22.04.2015, 17:59 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Vladimir7200, 22.04.2015 в 16:56, в сообщении № 8
еще что-то умеем? Решение подскажите.

Умеем.
Подсказываю - в точности, как лечить зуб через задний проход.
Умеете?

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Vladimir7200, 22.04.2015 в 16:56, в сообщении № 8
еще что-то умеем? Решение подскажите.

Умеем.
Подсказываю - в точности, как лечить зуб через задний проход.
Умеете?
Автор - RAN
Дата добавления - 22.04.2015 в 17:59
Vladimir7200 Дата: Четверг, 23.04.2015, 02:24 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата RAN, 22.04.2015 в 17:59, в сообщении № 9
Умеем.
Подсказываю - в точности, как лечить зуб через задний проход.
Умеете?

Нет, не умею, но знаю и делаю многое другое. А без сарказма нельзя? Если эта задача не имеет решения, так и напишите. Если знаний не хватает, нечего без толку свое и мое время отвлекать глупыми и ненужными комментариями.


Сообщение отредактировал Vladimir7200 - Четверг, 23.04.2015, 16:52
 
Ответить
Сообщение
Цитата RAN, 22.04.2015 в 17:59, в сообщении № 9
Умеем.
Подсказываю - в точности, как лечить зуб через задний проход.
Умеете?

Нет, не умею, но знаю и делаю многое другое. А без сарказма нельзя? Если эта задача не имеет решения, так и напишите. Если знаний не хватает, нечего без толку свое и мое время отвлекать глупыми и ненужными комментариями.
Автор - Vladimir7200
Дата добавления - 23.04.2015 в 02:24
anvg Дата: Четверг, 23.04.2015, 08:18 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток
Как то так
[vba]
Код

Public Sub ChangeComment()
     Dim pShape As Shape
     Set pShape = ActiveCell.Comment.Shape
     pShape.Fill.Visible = msoFalse
     pShape.Line.Visible = msoFalse
     pShape.Shadow.Visible = msoFalse
End Sub
[/vba]
Успехов


Сообщение отредактировал anvg - Четверг, 23.04.2015, 09:31
 
Ответить
СообщениеДоброе время суток
Как то так
[vba]
Код

Public Sub ChangeComment()
     Dim pShape As Shape
     Set pShape = ActiveCell.Comment.Shape
     pShape.Fill.Visible = msoFalse
     pShape.Line.Visible = msoFalse
     pShape.Shadow.Visible = msoFalse
End Sub
[/vba]
Успехов
Автор - anvg
Дата добавления - 23.04.2015 в 08:18
Vladimir7200 Дата: Четверг, 23.04.2015, 15:53 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
anvg, спасибо огромное!
 
Ответить
Сообщениеanvg, спасибо огромное!
Автор - Vladimir7200
Дата добавления - 23.04.2015 в 15:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сделать фон примечания прозрачным (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!