Проверку ориентации нашла
а как исправить, чтобы в обратной ориентации все тоже получалось - нет, не нашла, жду вашей помощи.
Sub SizeAndFixComments()
Dim oComm As Comment
If ActiveSheet.DisplayRightToLeft Then
For Each oComm In ActiveSheet.Comments
With oComm
.Shape.Top = .Parent.Cells.Top - 10
.Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
.Shape.Height = 50
.Shape.Width = 110
End With
Next oComm
Else
For Each oComm In ActiveSheet.Comments
With oComm
.Shape.Top = .Parent.Cells.Top - 10
.Shape.?????= .Parent.Cells.????? + .Parent.Cells.Width + 10
.Shape.Height = 50
.Shape.Width = 110
End With
Next oComm
End If
End Sub
а как исправить, чтобы в обратной ориентации все тоже получалось - нет, не нашла, жду вашей помощи.
Sub SizeAndFixComments()
Dim oComm As Comment
If ActiveSheet.DisplayRightToLeft Then
For Each oComm In ActiveSheet.Comments
With oComm
.Shape.Top = .Parent.Cells.Top - 10
.Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
.Shape.Height = 50
.Shape.Width = 110
End With
Next oComm
Else
For Each oComm In ActiveSheet.Comments
With oComm
.Shape.Top = .Parent.Cells.Top - 10
.Shape.?????= .Parent.Cells.????? + .Parent.Cells.Width + 10
.Shape.Height = 50
.Shape.Width = 110
End With
Next oComm
End If
End Sub