| Descricao: |
Macros do Aplicativo Microsoft Excel VBA - reposiciona um comentario a partir da célula selecionada.
observem que na entrada da macro selecionei tres células referente a comentarios inseridos.
Sub Reposicionamento_comentario_selecionados()
On Error Resume Next
Range("G6,K14,O22").Select
Dim Sb As Range
Dim vMinhaCelula As Range
Set vMinhaCelula = Selection
For Each Sb In vMinhaCelula.Cells
With Sb.Comment
.Shape.Top = .Parent.Top + 5
.Shape.Left = .Parent.Offset(0, 1).Left + 5
End With
Next
vMinhaCelula.Select
[D1].Select
End Sub
Sub Reposicionamento_comentario_selecionados_II()
On Error Resume Next
Range("G6,K14,O22").Select
Dim Sb As Range
Dim vMinhaCelula As Range
Set vMinhaCelula = Selection
For Each Sb In vMinhaCelula.Cells
With Sb.Comment
.Shape.Top = .Parent.Top + 50
.Shape.Left = .Parent.Offset(0, 1).Left + 50
End With
Next
vMinhaCelula.Select
[D1].Select
End Sub
Aprenda Microsoft Excel VBA (Visual Basic Application) com qualidade Saberexcel
|