• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

nunogateira

Ajuda: Bordas em Excel a partir do vb

2 mensagens neste tópico

Olá amigos, já estive aki alguns dias atrás com uma dúvida em relação a este projecto... Agora surgiu-me mais um problem, ñ estou a conseguir desenhar as bordas no excel através do vb.net!!!!  ;)  Desculpem mas este de "mexer" nas propriedades do Excel através do VB.net é novo pra mim!!!  :-[

Abaixo deixo o código k m vai buscar um ficheiro txt e convert para xls, portanto isso é o cabeçalho da tabela, os dados são introduzidos automaticamente, através do restante códgo!!!

Agradeço a ajuda!!! 

Sub escreve_cab_fich(ByVal sht As Microsoft.Office.Interop.Excel.Worksheet, ByVal linha_ini As Integer, ByVal fich As String)

        Dim oRng As Microsoft.Office.Interop.Excel.Range

        sht.Cells(linha_ini, 1) = ""

        sht.Cells(linha_ini + 1, 1) = fich

        sht.Cells(linha_ini + 2, 2) = "NOME"

        sht.Cells(linha_ini + 2, 3) = "DESCRIÇÃO"

        sht.Cells(linha_ini + 2, 4) = "TAMANHO"

        sht.Cells(linha_ini + 2, 5) = "TIPO"

        sht.Cells(linha_ini + 2, 6) = "OBRIGATÓRIO"

        sht.Cells(linha_ini + 2, 7) = "VALOR P/ DEFEITO"

        sht.Cells(linha_ini + 2, 8) = "OBSERVAÇÕES"

        'AJUSTAR À CÉLULA

        oRng = sht.Cells.Range("A1", "J1")

        oRng.EntireColumn.AutoFit()

        'FORMATAR LETRA DOS CABEÇALHOS

        With sht.Cells(linha_ini + 1, 1)

            .Range("A2", "H2").Font.Bold = True

            .Range("A2", "H2").Font.Name = "Verdana"

            .Range("A2", "H2").Font.Size = 9

            .Range("A2", "H2").Font.Italic = True

      End With

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Tens de dizer na célula qual é o Borders xlEdgeTop, xlEdgeBottom, xlEdgeLeft ou xlEdgeRight (ex: .Borders(xlEdgeTop)  e depois que tipo de border queres: .LineStyle = xlContinuous, .Weight = xlThin, .ColorIndex = xlAutomatic. Este é um border simples a preto mas podes personalizar alterado a cor o tamanho, etc.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora