Joselito Dionisio Mendonca

Devido a uma necessidade do trabalho busquei saber como fazer para enviar gráficos do excel automaticamente para grupo do whtasapp, vi vários posts vídeos e cheguei ao comando abaixo, nele eu consigo fazer o envio de mensagens, porém não consigo copiar um intervalo de células para colar no whatsapp e fazer o envio. O objetivo é enviar a mensagem, mas não para um contato especifico e sim para um grupo do whatsapp na empresa em que trabalho (qualidade), para que possam receber esse report. No caso o comando deve fazer um loop para achar o nome do grupo do whatsapp especificado. A mensagem enviada deve ser a seguinte. Intervalo de células A1:X76 Poderia me ajudar? Desde já agradeço. Muito obrigado! Segue abaixo o comando que estou utilizando: Private Sub CommandButton1_Click() ThisWorkbook.Save Dim contato As String Dim texto As Variant Dim grafico As Variant Dim linha As Integer 'GRAPH é a guia da planilha Sheets("GRAPH").Select linha = 2 ' Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/" ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/" Application.Wait (Now + TimeValue("00:00:08")) Do Until Sheets("GRAPH").Cells(linha, 7) = "" Application.Wait (Now + TimeValue("00:00:04")) 'texto é o intervalo de células onde está o gráfico que desejo copiar, contato é a célula onde está o nome do grupo texto = Sheets("GRAPH").Range("A1:X77").Copy grafico = ActiveSheet.Paste contato = Cells(linha, 7) Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys(contato, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) 'entra na tela do contato no WhatsApp Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys(texto, True) Call SendKeys(grafico, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) linha = linha + 1 Loop MsgBox ("Notificação enviada com sucesso") End Sub

Gostaria de ajuda para ao invés de enviar o texto enviar um gráfico, copiando os calores das células A1:X77 e enviar para o grupo pré definido Private Sub CommandButton1_Click() ThisWorkbook.Save Dim contato As String Dim texto As Variant Dim grafico As Variant Dim linha As Integer 'GRAPH é a guia da planilha Sheets("GRAPH").Select linha = 2 ' Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/" ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/" Application.Wait (Now + TimeValue("00:00:08")) Do Until Sheets("GRAPH").Cells(linha, 7) = "" Application.Wait (Now + TimeValue("00:00:04")) 'texto é o intervalo de células onde está o gráfico que desejo copiar, contato é a célula onde está o nome do grupo texto = Sheets("GRAPH").Range("A1:X77").Copy grafico = ActiveSheet.Paste contato = Cells(linha, 7) Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys(contato, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) 'entra na tela do contato no WhatsApp Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys(texto, True) Call SendKeys(grafico, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) linha = linha + 1 Loop MsgBox ("Notificação enviada com sucesso") End Sub