Como copiar todas as informações de formatação da seleção atual?

Question

É possível copiar todas as informações de formatação da Seleção?

Eu vi esta página , que lista todas as diferentes propriedades de formato de um intervalo, mas é possível obtê-las todas de uma vez e armazená-las para serem usadas depois?

Algo como:

Public formatting As Collection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set formatting = Selection.allFormatting
End Sub

    

Answer 1

Gravei uma macro enquanto selecionava uma célula, escolhi o formatador para pegar sua formatação e aplicá-la a outra célula. Resultado:

Sub Macro1()

    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

E parece funcionar, mas apenas uma vez; ou seja, se você deseja aplicar a mesma formatação a outra célula, é necessário selecioná-la e, depois, Selection.Copy novamente antes de aplicá-la.

Toda essa seleção é ruim para os olhos e não é necessária, no entanto. Isso é melhor:

Range("E7").Copy
Range("E9").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False