Примечания - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Примечания (форматирование примечаний)

Примечания

Mr_Vit

Дата: Вторник, 04.10.2011, 15:06 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Доброго времени суток
Столкнулся с проблемкой: в большом кол-ве ячеек вписывались примечания
в результате многочисленных действий по добавлению-удалению строк-столбцов
эти примечания съехали в разные стороны.
Например наводишь на ячейку курсором а примечание отображается на 5 листов выше или далеко сбоку.
Начал их перетаскивать вручную, но их (примечаний) уж очень много))).
Помогите решить, как сделать так, чтобы примечание было рядом с ячейкой в которую оно внесено.

Ответить

Саня

Дата: Понедельник, 10.10.2011, 12:09 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

Sub Макрос4()
      Dim comm As Comment

      For Each comm In ActiveSheet.Comments
          With comm
              .Shape.Left = .Parent.Offset(, 1).Left
              .Shape.Top = .Parent.Top
          End With
      Next comm
End Sub

[/vba]

Ответить

Alex_ST

Дата: Понедельник, 10.10.2011, 15:26 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3210

Репутация: 609 ±

Замечаний: 0% ±

2003

Я уже давно использую такую процедуру (записана в Персонале) :
[vba]

Код

Private Sub Починить_примечания()   '   восстановить нормальное положение "съехавших" примечаний на листе
       Dim iComment As Comment, A_Size As Boolean
      Select Case MsgBox("Включить у всех примечаний автоподбор размера?", vbYesNoCancel + vbQuestion, "Как настроить примечания?")
         Case vbCancel: Exit Sub
         Case vbYes: A_Size = True
         Case vbNo
      End Select
      For Each iComment In ActiveSheet.Comments
         With iComment.Parent.Cells
            iComment.Shape.Placement = xlMove
            If A_Size Then iComment.Shape.TextFrame.AutoSize = True
            iComment.Shape.Top = .Top - 10
            iComment.Shape.Left = .Left + .Width + 10
         End With
      Next
      MsgBox "Положения окон комментариев исправлены!", vbInformation, ""
End Sub

[/vba]