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

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


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

Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

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

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
  • Онлайн Онлайн
  • Сообщений: 594
  • Доброта спасет мир...

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

alexexcel

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

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

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



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

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4542
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4076
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 5567
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 4485
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5581
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 2782
23.01.2018 13:46 Найти вероятность повторной покупки 2558
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 3547
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 2432
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 2876





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

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