XL2000: Como utilizar macros para linha do conjunto de altura e largura da coluna

Traduções de Artigos Traduções de Artigos
Artigo: 213422 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Sumário

O Microsoft Excel utiliza o tipo de letra atribuído no estilo normal como a base para as larguras das colunas. Não é possível directa para atribuir larguras exacta em polegadas ou centímetros sem tentativa e erro.

Excel baseia a medida da largura das colunas no número de dígitos (especificamente, o número de zeros) na coluna, utilizando o estilo normal de letra. (Existem alguns tipos de letra com dígitos com larguras diferentes, mas este é invulgar.)

Por exemplo, utilizar o tipo de letra predefinido, a refere-uma coluna com uma largura de 10 se a largura de coluna necessária para apresentar 10 não negrito, não-itálico, Arial 10 pontos zeros. Num computador Macintosh, esta mesma largura de coluna consiste em 10 Genebra não negrito, itálico não, 10 pontos zeros. O Excel utiliza dígitos para determinar as larguras das colunas para que quando alterar o tipo de letra para um estilo numa folha de cálculo, as colunas aumentar ou diminuir para apresentar o número de dígitos especificado na coluna.

Tenha em atenção que este método de determinar as larguras das colunas não é exacto quando utilizar outros caracteres, tal como espaços, sinais de dólar, parênteses e assim sucessivamente.

Este artigo fornece um exemplo do Microsoft Visual Basic para as macros que lhe permitem definir a largura de altura e a coluna da linha em polegadas ou centímetros.

Mais Informação

Microsoft fornece exemplos de programação ilustração só, sem garantia expressa ou implícita, incluindo, sem limitação, garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas.
Se dispõe de limitada experiência de programação, poderá contactar um Microsoft Certified Partner ou a serviços de aviso. Para obter mais informações, visite estes Web sites da Microsoft:

Microsoft certificado Partner - https://partner.microsoft.com/global/30000104

Serviços Microsoft aviso - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte Web site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSUtilize o seguinte Visual Basic para as macros para especificar a largura de linha e coluna em polegadas.
Sub RowHeightInInches()
    Dim inches As Single
    ' Get the desired column width.
    inches = Application.InputBox("Enter Row Height in Inches", _
        "Row Height (Inches)", Type:=1)
    ' If the cancel button was not pressed.
    If inches Then
        ' Convert and set the column height.
        Selection.RowHeight = Application.InchesToPoints(inches)
    End If
End Sub
				
Sub ColumnWidthInInches()
    Dim inches As Single, points As Integer, savewidth As Integer
    Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
    Dim Count As Integer

    ' Turn screen updating off.
    Application.ScreenUpdating = False
    ' Ask for the desired width in inches.
    inches = Application.InputBox("Enter Column Width in Inches", _
        "Column Width (Inches)", Type:=1)
    ' If the cancel button for the input box is pressed, exit the
    ' procedure.
    If inches = False Then Exit Sub
    ' Convert the entered inches to points.
    points = Application.InchesToPoints(inches)
    ' Save the current column width setting.
    savewidth = ActiveCell.ColumnWidth
    ' Set the column width to the maximum allowed.
    ActiveCell.ColumnWidth = 255
    ' If points wanted is greater than points for 255 characters.
    If points > ActiveCell.Width Then
        ' Display a message box (the specified size is too large), and
        ' let user know maximum allowed value.
        MsgBox "Width of " & inches & " is too large." & Chr(10) & _
            "The maximum value is " & Format(ActiveCell.Width / 72, _
            "0.00"), vbOKOnly + vbExclamation, "Width Error"
        ' Reset the column width back to the original.
        ActiveCell.ColumnWidth = savewidth
        ' Exit out of the Sub from here.
        Exit Sub
    End If
    ' Set the lowerwidth and upperwidth variables.
    lowerwidth = 0
    upwidth = 255
    ' Set the column width to the middle of the allowed character range.
    ActiveCell.ColumnWidth = 127.5
    curwidth = ActiveCell.ColumnWidth
    ' Set the count to 0 so if it can't find an exact match it won't go
    ' indefinitely.
    Count = 0
    ' Loop as long as the cell width is different from width desired
    ' and the count (iterations) of the loop is less than 20.
    While (ActiveCell.Width <> points) And (Count < 20)
        ' If active cell width is less than desired cell width.
        If ActiveCell.Width < points Then
            ' Reset lower width to current width.
            lowerwidth = curwidth
            ' Set current column width to the midpoint of curwidth and
            ' upwidth.
            Selection.ColumnWidth = (curwidth + upwidth) / 2
            ' If active cell width is greater than desired width.
        Else
           ' Set upwidth to the curwidth.
           upwidth = curwidth
           ' Set column width to the mid point of curwidth and lower
           ' width.
           Selection.ColumnWidth = (curwidth + lowerwidth) / 2
        End If
        ' Set curwidth to the width of the column now.
        curwidth = ActiveCell.ColumnWidth
        ' Increment the count counter.
        Count = Count + 1
    Wend
End Sub

				
utilize as seguintes macros para especificar a largura de linha e coluna em centímetros.
Sub RowHeightInCentimeters()
    Dim cm As Single
    ' Get the row height in centimeters.
    cm = Application.InputBox("Enter Row Height in Centimeters", _
        "Row Height (cm)", Type:=1)
    ' If cancel button not pressed and a value entered.
    If cm Then
        ' Convert and set the row height
        Selection.RowHeight = Application.CentimetersToPoints(cm)
    End If
End Sub
				
Sub ColumnWidthInCentimeters()

    Dim cm As Single, points As Integer, savewidth As Integer
    Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
    Dim Count As Integer

    ' Turn screen updating off.
    Application.ScreenUpdating = False
    ' Ask for the width in inches wanted.
    cm = Application.InputBox("Enter Column Width in Centimeters", _
        "Column Width (cm)", Type:=1)
    ' If cancel button for the input box was pressed, exit procedure.
    If cm = False Then Exit Sub
    ' Convert the inches entered to points.
    points = Application.CentimetersToPoints(cm)
    ' Save the current column width setting.
    savewidth = ActiveCell.ColumnWidth
    ' Set the column width to the maximum allowed.
    ActiveCell.ColumnWidth = 255
    ' If the points desired is greater than the points for 255
    ' characters...
    If points > ActiveCell.Width Then
        ' Display a message box because the size specified is too
        ' large and give the maximum allowed value.
        MsgBox "Width of " & cm & " is too large." & Chr(10) & _
            "The maximum value is " & _
            Format(ActiveCell.Width / 28.3464566929134, _
            "0.00"), vbOKOnly + vbExclamation, "Width Error"
        ' Reset the column width back to the original.
        ActiveCell.ColumnWidth = savewidth
        ' Exit the Sub.
        Exit Sub
    End If
    ' Set the lowerwidth and upper width variables.
    lowerwidth = 0
    upwidth = 255
    ' Set the column width to the middle of the allowed character
    ' range.
    ActiveCell.ColumnWidth = 127.5
    curwidth = ActiveCell.ColumnWidth
    ' Set the count to 0 so if it can't find an exact match it won't
    ' go on indefinitely.
    Count = 0
    ' Loop as long as the cell width in is different from width
    ' wanted and the count (iterations) of the loop is less than 20.
    While (ActiveCell.Width <> points) And (Count < 20)
        ' If active cell width is less than desired cell width.
        If ActiveCell.Width < points Then
            ' Reset lower width to current width.
            lowerwidth = curwidth
            ' set current column width to the midpoint of curwidth
            ' and upwidth.
            Selection.ColumnWidth = (curwidth + upwidth) / 2
        ' If active cell width is greater than desired cell width.
        Else
            ' Set upwidth to the curwidth.
            upwidth = curwidth
            ' Set column width to the mid point of curwidth and lower
            ' width.
            Selection.ColumnWidth = (curwidth + lowerwidth) / 2
        End If
        ' Set curwidth to the width of the column now.
        curwidth = ActiveCell.ColumnWidth
        ' Increment the count counter.
        Count = Count + 1
    Wend
End Sub
				

Referências

Para obter informações adicionais sobre como obter ajuda com o Visual Basic for Applications, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
226118OFF2000: Recursos de programação do Visual Basic for Applications

Propriedades

Artigo: 213422 - Última revisão: 23 de novembro de 2006 - Revisão: 3.5
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2000 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbinfo kbprogramming kbualink97 KB213422 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 213422

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com