Campo Fixo Excel

Anônima
2012-09-28T03:41:28+00:00

Gostaria de poder fixar um campo de células para criar vínculo do excel com o powet point. 

Assim: quero que o campo L1C1:L15C10 (linha 1 da coluna 1 até a linha 15 da coluna 10) pegue sempre as próximas 15 linhas, independente delas terem sido excluídas, ocultadas ou inseridas....

Acontece que quando crio o vínculo com esse campo na primeira vez fica tudo correto, mas ao longo do tempo que vou mexendo na planilha do excel (ocultando células, inserindo conteúdo, excluindo linhas) a referência se perde e a atualização não pega as próximas 15 linhas.

Como fixar esse número de linhas?

Agradeço a ajuda!!!

Microsoft 365 e Office | Excel | Para uso doméstico | Windows

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários
Resposta aceita pelo autor da pergunta
Anônima
2012-09-28T22:07:13+00:00

usa o f4. ele fixa a célula. vlw!

Esta resposta foi útil?

0 comentários
Resposta aceita pelo autor da pergunta
Anônima
2012-09-28T21:51:12+00:00

Comigo funciona normalmente. Como criou o seu vínculo?

Passos que executei:

Selecionei um intervalo no Excel e pressionei Ctrl+C. Num slide do PowerPoint, fui no menu Página Inicial, cliquei no dropdown do botão colar do grupo Área de Transferência, cliquei em Colar Especial, cliquei no botão de opção Colar Vínculo, selecionei Objeto Pasta de Trabalho do Microsoft Excel e cliquei em OK.

Dessa forma, quando faço alterações no intervalo (inclusive apagar ou inserir linhas/colunas), a referência ao intervalo é mantida de forma fixa.

Esta resposta foi útil?

0 comentários

15 respostas adicionais

Classificar por: Mais útil
Mais útil Mais Novo Mais Antigo
  1. Anônima
    2012-10-28T15:02:33+00:00

    Felipe, colei o código no PowerPoint, mas o argumento:

    Set nm = ThisWorkbook.Names(CsIntervalo) falhou porque o Excel não altera o nome definido.

    Pelo link http://www.ambienteoffice.com.br/excel/criar_uma_instancia_do_excel_pelo_vba/  dei uma olhada como criar uma instância do Excel para alterar o nome definido.

    Mas como definir um range do "IntervaloNomeado001" se ele fica variando de acordo com a programação? Como modifico esses argumentos?

    Set rng = ws.Range("A1")

    rng = "Nova instância do Excel!"

    Esta resposta foi útil?

    0 comentários
  2. Anônima
    2012-10-27T22:58:45+00:00

    Estou assumindo que você possui o Office 2007 ou superior.

    Você deverá seguir alguns passos para conseguir fazer isso. A ideia é colocar um código que é executado automaticamente ao abrir uma apresentação. Para fazer algo deste tipo, veja o link: http://www.ambienteoffice.com.br/powerpoint/executar_codigo_ao_abrir_apresentacao/

    O código abaixo abre a pasta de trabalho que contém o nome definido, atualiza este, e depois fecha a pasta de trabalho:

    Sub EventoAbrir()

    'Mude as constantes abaixo para ajustar ao seu caso

    Const CsCabeçalho As String = "B2:D2"

    Const ClLinhas As Long = 7

    Const CsIntervalo As String = "IntervaloNomeado001"

    Const CsPlanilha As String = "Plan1"

    Const CsCaminho As String = "c:\benzadeus\Pasta1.xlsx"

    Dim nm As Name

    Dim lRow As Long

    Dim lCount As Long

    Dim lFirst As Long

    Dim appExcel As Excel.Application

    Dim wb As Workbook

    Set appExcel = CreateObject("Excel.Application")

    'Quando tudo estiver funcionando bem, sugiro trocar True por False

    appExcel.Visible = True

    Set wb = appExcel.Workbooks.Open(CsCaminho)

    With wb.Sheets(CsPlanilha)

    lFirst = .Range(CsCabeçalho).Row

    lRow = lFirst

    Do

    lRow = lRow + 1

    If Not .Rows(lRow).Hidden Then

    lCount = lCount + 1

    End If

    Loop While lCount <= ClLinhas

    Set nm = ThisWorkbook.Names(CsIntervalo)

    nm.RefersTo = "'" & .Name & "'!" _

    & .Range(CsCabeçalho).Resize(lRow - lFirst).Address

    End With

    wb.Close True

    appExcel.Quit

    End Sub

    Note que no código acima é necessário criar uma instância do Excel para alterar o nome definido.

    Esta resposta foi útil?

    0 comentários
  3. Anônima
    2012-10-27T01:03:32+00:00

    Felipe, era isso que eu precisava!! 

    No entanto, eu preciso vincular esse código ao abrir a apresentação e que seja independente de abrir o Excel.

    Eu posso criar um botão vinculando esse código e a partir daí atualizar o vínculo.

    Como programar isso no PowerPoint?

    Obrigado pelo apoio, mais uma vez!!

    Esta resposta foi útil?

    0 comentários