Excel VBA + Selenium Basic

前提・実現したいこと

**Excel VBA + Selenium Basic ** を用いてGmail でメールを送信したいのですが、
以下の制御ができず困っています。
どなたか解決策をご教授いただけませんでしょうか

発生している問題・エラーメッセージ

・「別のプログラムでOLEの操作が完了するまで待機を続けます。」のエラーメッセージが表示されることがあるので回避したい
・Excel のワークシート内のグラフを画像としてメール本文に貼り付けたい
・貼り付けたグラフをデフォルトのサイズから元にサイズにもどしたい

該当のソースコード

Excel 2016 VBA + Selenium Basic

Sub SendGmail()

    Dim driver As New WebDriver
    Dim keys As New keys
    Dim elm As WebElement
    
    Dim myGraph As ChartObject
    
    'グラフをコピーする
    Set myGraph = ActiveSheet.ChartObjects(1)
    myGraph.CopyPicture appearance:=xlScreen, Format:=xlBitmap
            
    'Chomeを起動する
    driver.Start "chrome"
    driver.Get "https://mail.google.com/mail/u/0"
     
    'ログイン（メールアドレスを入力）する
    Set elm = driver.FindElementByName("identifier").SendKeys("**********@gmail.com")
     
    '次へボタンを押下する
    Set elm = driver.FindElementByXPath("//*[@id=""identifierNext""]/content/span")
    elm.Click
     
    'パスワードを入力する
    Set elm = driver.FindElementByXPath("//*[@id=""password""]/div[1]/div/div[1]/input").SendKeys("********")
     
    '次へボタンを押下する
    Set elm = driver.FindElementById("passwordNext")
    elm.Click
     
    '作成ボタンを押下する
    Set elm = driver.FindElementByClass("z0")
    elm.Click
     
    '本文へペーストする
    Set elm = driver.FindElementByCss("div [class=""Am Al editable LW-avf""]")
    elm.SendKeys (keys.Control + "v")       '←ペーストできない
     
     'Shift+←で画像を選択する
     elm.SendKeys (keys.Shift + keys.ArrowLeft)
                
     '画像をリサイズする
     Set elm = driver.FindElementByXPath("//*[@id=""original-resize-image""]")
     elm.Click