Ir ao conteúdo
  • Cadastre-se

Jvitorino1007

Membros Plenos
  • Total de itens

    23
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Basole @Basole amigo show de bola cara, nem sei como te agradecer por essas ajudas, esse trabalho é o meu projeto de estágio...ficou 10 com sua ajuda valeu mesmo. Muito obrigado mesmo pela ajuda, acredito que novas dúvidas viram e se puder continuar me dando esse auxilio eu agradeço de coração. adicionado 18 minutos depois @Basole Como eu disse, estou tentando colocar em negrito e uma letra maior no "Curva de seletividade de fase e de neutro" mas esta dando erro.
  2. @Basole amigo também precisava aumentar a figura, tentei alguns códigos mas não deram ressultados.
  3. @BasoleBom dia amigo, segue a arquivo em word...seria possivel deixar um título em cima de cada imagem? Ex: primeira imagem " Curva de seletividade de fase" e segunda imagem " Curva se sletiviadade de neutro" Test1.docx
  4. @Basole @Basole vou enviar, adicionado 11 minutos depois teste.xls adicionado 39 minutos depois @Basole amigo consegui reslover essa parte aqui, qual o comando que posso utilizar para movimentar a imagem dentro do word ? Tentei colocar alguns aqui mas não deu certo
  5. @Basole Bom dia amigo, vou tentar aqui muito obrigado novamente.Obrigado mesmo adicionado 29 minutos depois @Basole Private Sub CommandButton1_Click() Dim Word Dim documento Set Word = CreateObject("Word.Application") Word.Visible = True Set documento = Word.Documents.Add(ThisWorkbook.Path & "\Test.docx") Dim docativo Set docativo = documento With docativo .Range.Paragraphs.Last.Range.InsertParagraphAfter Set nxPara = .Paragraphs.Last nxPara.Range.InsertBreak Type:=wdPageBreak Set s = nxPara.Range.InlineShapes.AddPicture(nome, False, True) s.Width = 400 End With With docativo .Range.Paragraphs.Last.Range.InsertParagraphAfter Set nxPara = .Paragraphs.Last nxPara.Range.InsertBreak Type:=wdPageBreak Set s = nxPara.Range.InlineShapes.AddPicture(figura, False, True) s.Width = 400 End With With documento .FormFields("nome").Range = TextBox1.Value .FormFields("en").Range = TextBox2.Value End With End Sub Private Sub CommandButton3_Click() Set foto = Sheets("Plan1").ChartObjects("Gráfico 1").Chart nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" foto.Export Filename:=nome, filtername:="GIF" Image1.Picture = LoadPicture(nome) Set foto = Sheets("Plan1").ChartObjects("Gráfico 2").Chart figura = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" foto.Export Filename:=nome, filtername:="GIF" Image2.Picture = LoadPicture(figura) End Sub Esse é o código completo que estou usando, ele carrega as duas imagens no userform mas está exportando somente a figura 2.
  6. @Basole Vou tentar aqui, muito obrigado novamente adicionado 2 minutos depois @Basole Amigo obrigado mesmo deu certo aqui nota 10 valeu mesmo adicionado 9 minutos depois @Basole A última dúvida eu tenho que inserir mais uma imagem desse jeito também...e está pulando 3 páginas se eu quiser diminuir como faço..to quebrando a cabeça nisso e você em 1 minuto faz kkk a última ajuda po gentileza se não for pedir demais
  7. @Basole Vou tentar aqui amigo, muito obrigado desde já. adicionado 15 minutos depois @Basole amigo deu certo, mas queria que somente a imgem fosse para outra página, o texto está indo junto...
  8. @Basole Private Sub CommandButton1_Click() Dim Word As Object Dim documento As Object Dim selection As Document Dim oImage As Shape Set Word = CreateObject("Word.Application") Word.Visible = True Set documento = Word.Documents.Add(ThisWorkbook.Path & "\Test.docx") Dim docativo Set docativo = documento docativo.InlineShapes.AddPicture Filename:=nome, LinkToFile:=False, SaveWithDocument:=True End Sub
  9. Bom dia, alguém poderia me ajudar por favor? Estou gerando um documento em Word atráves do VBA excel com textos e imagens, só que precisava que essa imagem fosse salva em outra página e não estou conseguindo fazer...estou usando esse código "Selection.InsertBreak Type:=wdPageBreak" mas fica dando erro 461. Por gentileza laguém poderia me auxliar por favor? Obrigado!!!!
  10. @Eder Neumann ok Eder, vou tentar aqui obrigado! adicionado 12 minutos depois Não deu certo Eder
  11. Bom dia, tenho esse código abaixo e queria pegar o valor da célula e colocar em um local especifico no Word mas não estou conseguindo. Alguém por gentileza poderia me ajudar por favor? Desde já agradeço. Sub Criar_Doc() Dim objWord As Object Dim objDoc As Object Dim i As Integer Dim strValueA As String, strValueB As String, strValueC As String, strValueD As String On Error GoTo erro Set objWord = CreateObject("Word.Application") ' define o objeto objWord.Visible = True Set objDoc = objWord.Documents.Add ' cria um novo doc For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Plan1") objDoc.Activate strValueA = .Cells(i, 1): strValueB = .Cells(i, 2): strValueC = .Cells(i, 3): strValueD = .Cells(i, 4) ' define os valores a string objWord.Selection.TypeText Text:=strValueA & " " & strValueB & " " & strValueC & " " & strValueD & "" objWord.Selection.TypeParagraph ' move p/ prox linha End With Next i If Dir(Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc") <> "" Then ' verif se ja existe o doc c/ o mesmo nome.. Kill Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc" ' ...se existir exclui End If objDoc.SaveAs (Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc") ' * Salva o documento na pasta "Desktop" MsgBox "O novo domumento foi salvo em: " & Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc", 0, "Sucesso" ' msg objWord.Quit ' fecha o doc Set objWord = Nothing Exit Sub erro: MsgBox Err.Description, vbCritical, "Atenção!!!" End Sub
  12. @Basole Bom dia , como faço para vincular o que pego de valor de uma célula da Plan1 e colocar no local especifico no Word? Poderia ajudar por favor?
  13. Boa tarde a todos, gostaria de pedir ajuda pois não sei mais o que fazer para esse código dar certo. Estou tentando criar um botão de pesquisa onde esses dados são armazenados em um banco de dados e desse banco de dados para uma nova página do Excel, porém em um formato de Word. Por favor peço gentilmente a ajuda de vocês. Agradeço desde já.
  14. Não sou preguiçoso não viu,só tive dificuldade pra fazer. Já consegui fazer o que queria. adicionado 3 minutos depois Mas Obrigado!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!