İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel cədvəlinə bir sıra hüceyrələri bir şəkil kimi necə yerləşdirmək olar?

Bir sıra hüceyrələri kopyalayıp Exceldən bir e-məktub göndərdiyiniz zaman onu bir mesaj olaraq mesaj orqanına yapışdırmanız lazımdır. Bu vəzifəni necə həll edə bilərsən?

Excel cədvəlində VBA kodu ilə e-poçt orqanına bir sıra hüceyrələri yerləşdirin


Excel cədvəlində VBA kodu ilə e-poçt orqanına bir sıra hüceyrələri yerləşdirin


Bu işi həll etmək üçün başqa bir yaxşı üsul ola bilər, bu yazıda VBA kodu sizə kömək edə bilər. Xahiş edirik bunu edin:

1. Kopyalamaq və hüceyrələri görüntü olaraq yapışdırmaq istədiyiniz hesabatı aktivləşdirin, basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: e-poçt orqanına bir sıra hüceyrələri görüntü kimi yapışdırın:

Sub sendMail()
        Dim TempFilePath As String
        Dim xOutApp As Object
        Dim xOutMail As Object
        Dim xHTMLBody As String
        Dim xRg As Range
        On Error Resume Next
        Set xRg = Application.InputBox("Please select the data range:", "KuTools for Excel", Selection.Address, , , , , 8)
        If xRg Is Nothing Then Exit Sub
        With Application
            .Calculation = xlManual
            .ScreenUpdating = False
            .EnableEvents = False
        End With
        Set xOutApp = CreateObject("outlook.application")
        Set xOutMail = xOutApp.CreateItem(olMailItem)
        Call createJpg(ActiveSheet.Name, xRg.Address, "DashboardFile")
        TempFilePath = Environ$("temp") & "\"
        xHTMLBody = "<span LANG=EN>" _
                & "<p class=style2><span LANG=EN><font FACE=Calibri SIZE=3>" _
                & "Hello, this is the data range that you want:<br> " _
                & "<br>" _
                & "<img src='cid:DashboardFile.jpg'>" _
                & "<br>Best Regards!</font></span>"
        With xOutMail
            .Subject = ""
            .HTMLBody = xHTMLBody
          .Attachments.Add TempFilePath & "DashboardFile.jpg", olByValue
            .To = " "
            .Cc = " "
            .Display
        End With
End Sub
Sub createJpg(SheetName As String, xRgAddrss As String, nameFile As String)
    Dim xRgPic As Range
    ThisWorkbook.Activate
    Worksheets(SheetName).Activate
    Set xRgPic = ThisWorkbook.Worksheets(SheetName).Range(xRgAddrss)
    xRgPic.CopyPicture
    With ThisWorkbook.Worksheets(SheetName).ChartObjects.Add(xRgPic.Left, xRgPic.Top, xRgPic.Width, xRgPic.Height)
        .Activate
        .Chart.Paste
        .Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
    End With
    Worksheets(SheetName).ChartObjects(Worksheets(SheetName).ChartObjects.Count).Delete
Set xRgPic = Nothing
End Sub

Qeyd: Yuxarıda göstərilən kodda, bədən məzmununu və e-poçt ünvanınızı ehtiyacınıza dəyişə bilərsiniz.

3. Kodu daxil etdikdən sonra düyməsini basın F5 bu kodu çalıştırmak üçün açar bir e-poçt gövdesine resim olaraq eklemek istediğiniz veri aralığının seçilmesini hatırlatmak üçün bir informasiya qutusu açılır, ekran görüntüsüne baxın:

4. Sonra basın OK düyməsini basın və a Mesaj pəncərə göstərilir, seçilmiş məlumat aralığı bədənə şəkil kimi daxil edilir, ekran görüntüsünə baxın:

Qeyd: İçində Mesaj pəncərədə, həmçinin, cəmiyyət məzmununu və E-poçt ünvanlarını Sizə və Cc sahələrinə dəyişə bilərsiniz.

5. Nəhayət, basın Göndərmək Bu e-poçt göndərmək üçün düyməsini basın.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mohammad · 1 months ago
    Thanks dears,, Could you please tell me how to do this but without asking for range (predefined range)?
  • To post as a guest, your comment is unpublished.
    greg horton · 1 months ago
    This is awesome, I love it! Quick question. I see that it is adding a border to the image. Is there a way to generate without a border? Thanks in advance!
    • To post as a guest, your comment is unpublished.
      Ian Wildman · 1 months ago
      I'd love to know how to paste without generating a border as well. This code is awesome, super intuitive and straightforward. Thank you!
  • To post as a guest, your comment is unpublished.
    Piotrek · 8 months ago
    wyrzuca mi błąd w linijce "Set xOutMail = xOutApp.CreateItem(olMailItem)" olMailItem - nie zdefiniowana
    oraz ".Attachments.Add TempFilePath & "DashboardFile.jpg", olByValue" olByValue - nie zdefiniowana