title: send a pic from excel via whatsapp
body: <p>How can we send a pic from excel via whatsapp?</p>
  
  <p>I have found the vba code to send messages via <a href="https://web.whatsapp.com" rel="nofollow noreferrer">https://web.whatsapp.com</a>,</p>
  
  <pre><code>Sub Test()
  
      Dim text As String
      Dim contact As String
      text = Range("C2").Value
      ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
      If MsgBox("Is WhatsApp Loaded?" &amp; vbNewLine &amp; vbNewLine &amp; "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp") = vbYes Then
          Fazer (100)
          startrow = 2
          startcol = 2
          Do Until Sheets(1).Cells(startrow, 1) = ""
              contact = Cells(startrow, 1)
              text1 = Sheets(1).Cells(startrow, startcol).Value
              Fazer (3000)
                  Call SendKeys("{TAB}", True)
              Fazer (1000)
                  Call SendKeys(contact, True)
              Fazer (1000)
                  Call SendKeys("~", True)
              Fazer (1000)
                  Call SendKeys(text1, True)
              Fazer (1000)
                  Call SendKeys("~", True)
              Fazer (1000)
              startrow = startrow + 1
          Loop
      Else
      End If
  End Sub
  
  Function Fazer(ByVal Acao As Double)
      Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)
  End Function
  </code></pre>