VBNet - Форум - Как установить размер комментария

Вопрос: Как установить размер комментария Добавлено: 19.03.08 13:43

Автор вопроса: Jasmin

Здравствуйте!

Подсткажите, как программно установить размер шрифта у комментария в ячейке ? Как вообще выбрать комментария (сделать его активным) ?

Спасибо.
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: ADSemenov.ru Вопросов: 5 Ответов: 276	Web-сайт: www.adsemenov.ru Профиль \| \| #1	Добавлено: 19.03.08 14:01
	Да возьмите просто включите запись макроса, введите примечание к ячейке и поизменяйте в нём все свойства. Потом смотрите, что записалось в VBA и там всё будет видно. Ответить

Номер ответа: 2 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #2	Добавлено: 19.03.08 14:17
	ADSemenov.ru К сожалению, через запись не всегда пишется ВСЕ, что выполняет пользователь. Сделала так: For Each iNote In ActiveSheet.Comments With iNote.Shape.TextFrame.Characters.Font .Name = "Tahoma" .Size = 10 End With Next iNote Ответить

Номер ответа: 3 Автор ответа: ADSemenov.ru Вопросов: 5 Ответов: 276	Web-сайт: www.adsemenov.ru Профиль \| \| #3	Добавлено: 19.03.08 14:22
	Не понял. Range("C7".Select Range("C7".AddComment Range("C7".Comment.Visible = False Range("C7".Comment.Text Text:="ADSemenov.ru:" & Chr(10) & "" Selection.ShapeRange.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft Range("C7".Comment.Shape.Select True Range("C7".Comment.Text Text:="ADSemenov.ru:" & Chr(10) & "" With Selection.Font .Name = "Arial" .FontStyle = "курсив" .Size = 11 .Strikethrough = True .Superscript = False .Subscript = True .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleSingle .ColorIndex = 53 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ReadingOrder = xlContext .Orientation = xlHorizontal .AutoSize = False End With Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 31 Selection.ShapeRange.Fill.Transparency = 0.42 Selection.ShapeRange.Line.Weight = 2.25 Selection.ShapeRange.Line.DashStyle = msoLineRoundDot Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.SchemeColor = 53 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 39.75 Selection.ShapeRange.Width = 102# With Selection .Locked = False .LockedText = False End With With Selection .Placement = xlMoveAndSize .PrintObject = True End With Selection.ShapeRange.TextFrame.MarginLeft = 7.09 Selection.ShapeRange.TextFrame.MarginRight = 7.09 Selection.ShapeRange.TextFrame.MarginTop = 3.69 Selection.ShapeRange.TextFrame.MarginBottom = 3.69 Range("4".Select End Sub И что здесь нехватает? Ответить

Номер ответа: 4 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| \| #4	Добавлено: 19.03.08 14:28
	Люди, ловите ее, она не Жасмин! А в общем - ADSemenov.ru - прав. Там - это тебе не здесь, там - все видят и там ВСЕ видно. Ответить

Номер ответа: 5 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| \| #5	Добавлено: 20.03.08 13:04
	так удобней :D Range("C7".Select Range("C7".AddComment Range("C7".Comment.Visible = False Range("C7".Comment.Text Text:="ADSemenov.ru:" & Chr(10) & "" Selection.ShapeRange.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft Range("C7".Comment.Shape.Select True Range("C7".Comment.Text Text:="ADSemenov.ru:" & Chr(10) & "" With Selection.Font .Name = "Arial" .FontStyle = "курсив" .Size = 11 .Strikethrough = True .Superscript = False .Subscript = True .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleSingle .ColorIndex = 53 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ReadingOrder = xlContext .Orientation = xlHorizontal .AutoSize = False End With With Selection.ShapeRange .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor.SchemeColor = 31 .Fill.Transparency = 0.42 .Line.Weight = 2.25 .Line.DashStyle = msoLineRoundDot .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoTrue .Line.ForeColor.SchemeColor = 53 .Line.BackColor.RGB = RGB(255, 255, 255) .LockAspectRatio = msoFalse .Height = 39.75 .Width = 102# With Selection .Locked = False .LockedText = False End With With Selection .Placement = xlMoveAndSize .PrintObject = True End With With Selection.ShapeRange.TextFrame .MarginLeft = 7.09 .MarginRight = 7.09 .MarginTop = 3.69 .MarginBottom = 3.69 Range("4".Select End Sub Ответить

Номер ответа: 6 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #6	Добавлено: 21.03.08 07:06
	Если повторно запустить вот этот кусок отдельно, получается, что меняется шрифт у самой ячейки, а не у комментария. (По крайней мере у меня ) Range("C7".Select Range("C7".AddComment Range("C7".Comment.Visible = False Range("C7".Comment.Text Text:="ADSemenov.ru:" & Chr(10) & "" ' Selection.ShapeRange.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft ' Range("C7".Comment.Shape.Select True Range("C7".Comment.Text Text:="ADSemenov.ru:" & Chr(10) & "" With Selection.Font .Name = "Arial" .FontStyle = "курсив" .Size = 11 End With А отмеченные ' вообще пишет "Run-time error '1004'; Application-defined or object-defined error". При записи через Record Macro в тексте нет подобной строки "Comment.Shape.TextFrame.Characters.Font.Size=11" Если бы нечто хотя бы подобное было, вопросов бы не возникло. P.S. А зачем меня ловить ? Правда я - Jasmin, а не Жасмин. Ответить

Страница: 1 |