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

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 traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 213422
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Microsoft Excel usa a fonte atribuída no estilo normal, como a base para as larguras de coluna. Não é possível direta para atribuir larguras de coluna exata em polegadas ou centímetros sem tentativa e erro.

Excel baseia a medida de larguras de coluna do número de dígitos (especificamente, o número de zeros) na coluna, usando a fonte do estilo normal. (Existem algumas fontes que tenham dígitos de larguras diferentes, mas isso é incomum.)

Por exemplo, usando a fonte padrão, uma coluna com uma largura de 10 se refere à largura de coluna necessário para exibir 10 não negrito, não-itálico, Arial de 10 pontos zeros. Em um computador Macintosh, essa mesma largura de coluna consiste em Geneva não negrito, itálico não 10 zeros de 10 pontos. O Excel usa dígitos para determinar as larguras de coluna para que quando você altera a fonte para um estilo em uma planilha, as colunas são ampliadas ou reduzidas para exibir o número especificado de dígitos na coluna.

Observe que esse método para determinar as larguras de coluna não é exato ao usar outros caracteres, como espaços, sinais de dólar, parênteses e assim por diante.

Este artigo fornece exemplo Microsoft Visual Basic para aplicativos macros que permitem que você defina a linha de altura e a largura da coluna em polegadas ou centímetros.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando às garantias implícitas de comercialização e/ou adequação a uma finalidade específica. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Se você não tenha muita experiência de programação, talvez queira em contato com um Microsoft Certified Partner ou Microsoft Advisory Services. Para obter mais informações, visite da Microsoft:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

Comunicado de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como entrar em contato com a Microsoft, visite o seguinte site: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSUse o Visual Basic for Applications macros seguir para especificar as larguras 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 IfEnd 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    WendEnd Sub				
use as seguintes macros para especificar as larguras 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 IfEnd 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    WendEnd Sub				
Referências
Para obter informações adicionais sobre como obter ajuda com o Visual Basic for Applications, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
226118OFF2000: Programação recursos para o Visual Basic for Applications
XL98 XL97 XL7 XL5 como XL2000

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 213422 - Última Revisão: 12/05/2015 12:12:17 - Revisão: 3.5

Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbinfo kbprogramming kbualink97 KB213422 KbMtpt
Comentários