Изменить размер объекта Comment - Microsoft Office Excel

Васкинс · 16.07.2008, 13:20

Пытаюсь программно создать примечание в некоторой ячейке в 2003м офисе. Важно! - изменяю размерчик границ примечания, имеющийся по умолчанию.
Не парясь сделал: Сервис/макрос/начать запись...
И думал перенести код в своё приложение.
Однако сам Exel не в состоянии воспроизвести свой же собственный код.
Даже если тут же запустить созданный им макрос - он дает ошибку во время исполнения.
Поскольку проблема возникает не в первый раз и уже не на одной машине, просто до этого было не столь важно ее решение, прошу помочь.
Дайте пример кода, который будет работать.

P/S В принципе на листе будет несколько примечаний. Программа вызывается и каждый раз создает новое в ячейке с известными ей координатами. А поскольку текст примечания увесистый, нужно бы размерчик соответствующий сразу сделать.

VictorM · 16.07.2008, 13:46

вот ЗДЕСЬ - о работе с примечаниями

SAS888 · 16.07.2008, 13:52

Например, для ячейки "A1":

Код:

With Range("A1").Comment.Shape
    .Width = 150
    .Height = 150
End With

Васкинс · 16.07.2008, 14:07

Спасибо, VictorM
Вот так получилось:
Workbooks(ge49).Worksheets(aa16).Ce lls(hr10, hr11).AddComment
Set hr28 = Workbooks(ge49).Worksheets(aa16).Ce lls(hr10, hr11).Comment
hr28.Shape.ScaleHeight 9.84, msoFalse, msoScaleFromTopLeft
hr28.Shape.ScaleWidth 7.73, msoFalse, msoScaleFromTopLeft

Васкинс · 16.07.2008, 14:11

SAS888, Спасибо.
Всё просто, почему у меня через shape.Height не пошло сразу, не понимаю.
Сейчас пробую - всё работает.
Ок. Спасибо.

16.07.2008, 13:20	#1
Васкинс Регистрация: 16.07.2008 Сообщений: 3	Изменить размер объекта Comment Пытаюсь программно создать примечание в некоторой ячейке в 2003м офисе. Важно! - изменяю размерчик границ примечания, имеющийся по умолчанию. Не парясь сделал: Сервис/макрос/начать запись... И думал перенести код в своё приложение. Однако сам Exel не в состоянии воспроизвести свой же собственный код. Даже если тут же запустить созданный им макрос - он дает ошибку во время исполнения. Поскольку проблема возникает не в первый раз и уже не на одной машине, просто до этого было не столь важно ее решение, прошу помочь. Дайте пример кода, который будет работать. P/S В принципе на листе будет несколько примечаний. Программа вызывается и каждый раз создает новое в ячейке с известными ей координатами. А поскольку текст примечания увесистый, нужно бы размерчик соответствующий сразу сделать.

16.07.2008, 13:46	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	вот ЗДЕСЬ - о работе с примечаниями "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

16.07.2008, 13:52	#3
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Например, для ячейки "A1": Код: `With Range("A1").Comment.Shape .Width = 150 .Height = 150 End With` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
изменить размер кнопки	badfilin	JavaScript, Ajax	2	12.04.2008 17:04
Как найти размер объекта	Sibedir	Общие вопросы Delphi	12	21.11.2007 06:17
Как изменить размер Видео	PilGrim	Компоненты Delphi	1	19.11.2007 23:03
Как изменить свойство объекта, если его имя находится в переменной?	Aiden	Компоненты Delphi	1	13.09.2007 07:57
Как изменить размер поля БД	Алёна	БД в Delphi	5	07.05.2007 10:06

16.07.2008, 14:07	#4
Васкинс Регистрация: 16.07.2008 Сообщений: 3	Спасибо, VictorM Вот так получилось: Workbooks(ge49).Worksheets(aa16).Ce lls(hr10, hr11).AddComment Set hr28 = Workbooks(ge49).Worksheets(aa16).Ce lls(hr10, hr11).Comment hr28.Shape.ScaleHeight 9.84, msoFalse, msoScaleFromTopLeft hr28.Shape.ScaleWidth 7.73, msoFalse, msoScaleFromTopLeft

16.07.2008, 14:11	#5
Васкинс Регистрация: 16.07.2008 Сообщений: 3	SAS888, Спасибо. Всё просто, почему у меня через shape.Height не пошло сразу, не понимаю. Сейчас пробую - всё работает. Ок. Спасибо.