İ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-də şərhlərdən şəkillər çıxarmaq üçün necə?

Excel-də şərhinizə asanlıqla şəkil daxil edə bilərsiniz, ancaq, şərhləri qutulardan görünüşləri hüceyrələrə və ya xüsusi bir qovluğa çıxarmaq düşündünüzmü? Bu yazıda şərhlərin şəkillərdən necə çıxarılacağına dair danışacağam.

Şəkilləri şərhdən çıxarışla saxlaya və saxlaya bilərsiniz

VBA koduyla xülasə şəkillərdən şəkilləri çıxarın


arrow mavi sağ bubbleŞəkilləri şərhdən çıxarışla saxlaya və saxlaya bilərsiniz

Şəkilləri şərhlərdən qovluğa çıxarmaq və saxlamaq istəyirsinizsə, aşağıdakıları yerinə yetirin:

1. Yeni boş bir iş kitabına daxil etmək istədiyiniz şəkilləri olan şərhləri olan hesabatı kopyalayın.

doc 1 şərhindən çıxarış şəkli

2. Və sonra basın fayl > Saxla bu yeni iş kitabını kimi qeyd etmək Web Page müəyyən bir qovluğa format verin, ekran bax:

doc 2 şərhindən çıxarış şəkli

3. Sonra basın Yadda saxla Dosyayı kaydetmek üçün, daha sonra kaydedilmiş görüntüleri görüntülemek üçün xüsusi qovluğa gedin, qovluğa iki fayl, bir html faylı, diger fayl və digər faylları olan bir qovluq, ekran görünüşünə baxın:

doc 3 şərhindən çıxarış şəkli


arrow mavi sağ bubbleVBA koduyla xülasə şəkillərdən şəkilləri çıxarın

Aşağıdakı ekran görüntüsünün görünüşlərindən görüntüləri kameradan çıxarmaq istəyirsinizsə, burada sizin üçün bir VBA kodu yarada bilərsiniz, belə edin:

doc 4 şərhindən çıxarış şəkli

1. 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 > Modulesvə Modul Pəncərəsində aşağıdakı kodu yapışdırın.

VBA kodu: Hüceyrəyə şərhlərdən şəkli çıxarın:

Sub CommentPictures()
'Updateby Extendoffcie 20161207
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməni basın və mövcud iş yerindəki şərhlərin bütün görünüşləri növbəti sütun hüceyrələrinə çıxarılır, ekran görüntüsünə baxın:

doc 4 şərhindən çıxarış şəkli



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.
    Jacob · 9 months ago
    Thank you!! I had previously inserted pictures into comments for a document and then deleted the pictures only to have someone ask me for copies of only the pictures. This was very straightforward and saved me. Thanks again!
    • To post as a guest, your comment is unpublished.
      Brice Barrier · 5 months ago
      Hello,
      Very interesting post. Thanks a lot.

      But I do not see how to use it to use the picture for a button of my CommandBar. Let me explain.

      I want to share my Excel sheets without sending separatly images for buttons as jpg files (.Picture = LoadPicture(ImageFile).

      So I want to hide the images in some hidden cells or in some comments.
      No issue to hide the images.
      But I do not succeed to get them afterward to initialize my buttons.

      Any idea for this ?


      Thanks for your time.
      Brice.