none
Alterar altura da linha até um determinado limite RRS feed

  • Pergunta

  • Olá, fiz uma macro para alterar a altura da linha:

    <meta content="text/html; charset=utf-8" http-equiv="CONTENT-TYPE" /><title></title><meta content="OpenOffice.org 2.4 (Linux)" name="GENERATOR" /><style type="text/css"><!-- @page { margin: 2cm } P { margin-bottom: 0.21cm } --> </style>

    Sub setHeights()

    Dim targetRange As Range

    Dim targetCell As Range

    Set targetRange = Range("A:A")

    For Each targetCell In targetRange

    If Not IsEmpty(targetCell) Then

    targetCell.RowHeight = 12.75

    Else

    targetCell.RowHeight = 53

    End If

    Next targetCell

    End Sub

    Mas eu quero ir só até a linha 700 ao invés de ir até o final. Que sintaxe usar ? Grato

    quinta-feira, 7 de fevereiro de 2013 17:37

Respostas