Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Автор Тема: VBA:"With cmt.Shape.TextFrame.Characters.Font" выдает ошибку  (Прочитано 1954 раз)

0 Пользователей и 1 Гость просматривают эту тему.

alexexcel

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 91

"Application-defined or object-defined error"

Sub CommentAddOrEditTNR()
  Dim cmt As Comment
  Set cmt = ActiveCell.Comment
  If cmt Is Nothing Then
    ActiveCell.AddComment text:=""
    Set cmt = ActiveCell.Comment
    With cmt.Shape.TextFrame.Characters.Font
      .Name = "Times New Roman"
      .Size = 11
      .Bold = False
      .ColorIndex = 0
    End With
  End If
  SendKeys "+{F2}"
End Sub
В чем тут может быть дело? Excel 2016.
Записан

alexexcel

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 91

Может это быть, потому что это 64-битный эксель? Потому что в 32-битном это работает нормально.
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 597
  • Доброта спасет мир...

Вы бы пример приложили, как того требуют правила форума. Может и ответ быстреее бы получили...
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

alexexcel

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 91

Спасибо за внимание к моему посту, но непонятно, какой пример я мог бы приложить. Макро и ошибку я приложил, а что еще можно?

Я нашел причину. При случайном нажатии CTRL+6 в Options -- Advanced -- Display options for this workbook активируется опция For objects, show: Nothing (hide objects). Эта опция и приводит к такому поведению. При этом также деактивируются элементы Аудита и еще некоторые вещи. Никогда не сталкивался с такой штукой. Странно, что эксель позволяет без всякого уведомления отключить кучу функций случайным нажатием клавиш и потом концы не найдешь даже при помощи экспертов, как показывает отсутствие ответа на мою проблему на этом форуме. Хотя казалось бы, почему может элементарное макро выдавать ошибку...
Записан
 



Темы без ответов

27.05.2022 14:38 конструкция из Shape на VBA на листе Excel 467
09.08.2019 14:09 Макрос для заполнения таблиц через форму 5301
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4656
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 6262
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3349
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 5178
15.03.2017 15:45 автозамена картинок PowerPoint 4081
11.03.2017 13:43 Изменить нумерацию страниц 4015
07.02.2017 18:43 Блокировка ячеек по наступлению даты 3138
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3638





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.091 секунд. Запросов: 96.