kommentarbox flytter sig

Nedenstående makro, som jeg engang har fundet på nettet (kilden er angivet i makroen) kan positionere kommentarerne korrekt.

Sub CommentFix()

' This macro modifies all comments in all open workbooks to:
' (1) move and size with cells
' (2) be physically positioned near the cell to which they correspond
' (3) be optimally sized appropriate to the text within
' This macro was created by combining code posted on the following website:
' http://www.contextures.com/xlcomments03.html

Dim thisfile As Workbook
Set thisfile = ActiveWorkbook
Dim MyWorkbook As Workbook
Dim MySheet As Worksheet
Dim MyComment As Comment
Dim CommentCount As Long
Dim lArea As Long
Dim fixed As Boolean
fixed = False
On Error GoTo NeedToUnprotect
For Each MyWorkbook In Workbooks
MyWorkbook.Activate
For Each MySheet In MyWorkbook.Sheets
MySheet.Activate
CommentCount = 0
For Each MyComment In MySheet.Comments
With MyComment.Shape
.Placement = xlMoveAndSize
.Top = MyComment.Parent.Top + 5
.Left = MyComment.Parent.Offset(0, 1).Left + 5
.TextFrame.Characters.Font.Name = "Tahoma"
.TextFrame.Characters.Font.Size = 8
.TextFrame.AutoSize = True
CommentCount = CommentCount + 1
End With
If MyComment.Shape.Width > 300 Then
lArea = MyComment.Shape.Width * MyComment.Shape.Height
MyComment.Shape.Width = 200
MyComment.Shape.Height = (lArea / 200) * 1.1
End If
Next MyComment
If CommentCount > 0 Then
MsgBox ("A total of " & CommentCount & " comments in worksheet '" & MySheet.Name & "' of workbook '" & MyWorkbook.Name & "'" & Chr(13) & "were repositioned and resized.")
fixed = True
End If
Next MySheet
Next MyWorkbook
thisfile.Activate
If fixed = False Then
MsgBox ("No comments were detected.")
End If
On Error GoTo 0
Exit Sub

NeedToUnprotect:
MsgBox ("You must unprotect all worksheets before running the macro.")
thisfile.Activate
Exit Sub

End Sub

Har du prøvet at checke, om kommentar boksen er sat til at bevare celleplacering?
Prøv at redigere kommentar, og når boksen "popper op", så højreklik på rammen, og i boksen der kommer frem, vælg fanebladet "Egenskaber", og prøv at se hvor fluebenet er sat. Der er 3 muligheder!

åh håbede på en lettere løsning ;O)

Troede egentlig at excel selv kunne finde ud af at placerer kommentaren, hvor den er skrevet. At vi måske bare skulle være mere opmærksomme på at vi ikke har filtre på imens - ellers noget i den retning. For det sker jo ikke hver gang. nogle gange hjælper det at lukke arket og åbne igen

ebea

Har jeg prøvet men får slet ikke noget op med med noget faneblad egenskab

Jeg kan vælge at formatere - sæt ind- placer forrest osv

#4  -  Først vælger du "rediger kommentar"
Så højreklikker du på Rammen (du kan se Cursor ændres til et Trådkors).
Og så skulle du gerne kunne vælge forskellige faneblade i den menu Boks som fremkommer.

#4  -  Jeg skulle måske lige skrive, at du selvfølgelig, først skal vælge "Formater kommentar" når du har højreklikket på Rammen ;-)
Derefter får du valgmulighederne!

hej ebea

Tak for din venlighed så selv klaphatte som mig kan forstå det ;O))

Meen har stadig ikke den mulighed

Der er kun et faneblad og det er skriftype

Laila

#7  -  Hvad Office version bruger du?

Det ved jeg faktisk ikke