Campo Fixo Excel

Anônima

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!!!

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

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

0 comentários

Resposta aceita pelo autor da pergunta

Anônima

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.

0 comentários

15 respostas adicionais

Anônima

2012-10-26T09:00:36+00:00

Para fazer isso via programação, use o código abaixo como exemplo:

Sub Exemplo()

'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"

Dim nm As Name

Dim lRow As Long

Dim lCount As Long

Dim lFirst As Long

With ThisWorkbook.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

MsgBox nm.RefersTo

End With

End Sub

A macro acima deve ser executada manualmente. Se quiser que esse código execute automaticamente ao abrir o Excel, insira-o no evento Workbook_Open na classe da pasta de trabalho (se não entendeu o que significa colar um código numa classe, veja http://www.ambienteoffice.com.br/officevba/modulos_em_vba/#inserir_codigo_num_objeto).

No entanto, se quiser que esse código seja executado automaticamente ao abrir a Apresentação, e seja independente de ter que abrir o Excel volte a postar.
Esta resposta foi útil?

0 comentários Sem comentários
Anônima

2012-10-26T02:02:16+00:00

Felipe, muito obrigado pelo auxílio!

Consegui fazer essa relação com o intervalo nomeado e ajustar sempre as linhas de acordo com o que está visível (célula não oculta).

No arquivo power point também vejo o vínculo de acordo com o nome que criei.

(C:\Users\Desktop\NomeArquivoExcel.xlsx!Plan1!IntervaloNomeado01)

E pelo Excel pelo atalho Ctrl+F3 consigo redimensionar o intervalo nomeado (neste caso "IntervaloNomeado01") para o campo visível que eu quero, mas como automatizar isso via programação?
Esta resposta foi útil?

0 comentários Sem comentários
Anônima

2012-10-25T22:40:37+00:00

Não tem a ver com área de impressão, tem a ver com criar um intervalo nomeado (chamados também como nomes definidos).

Leia com atenção novamente a minha postagem: você deve criar um nome definido do intervalo que deseja mostrar.

À medida que você ocultar linhas, deverá ir até a janela de onde se cria/edita nomes definidos e editar o intervalo do nome definido que criou.

Programar pra fazer isso seria a segunda etapa. Primeiro tente vincular uma tabela do PowerPoint a um nome definido do Excel.
Esta resposta foi útil?

0 comentários Sem comentários