Excel'deki yorumlardan resimleri nasıl çıkarabilirsiniz?

Excel'de, istediğiniz kadar kolayca yoruma resim ekleyebilirsiniz, ancak yorum kutularından resimleri hücrelere veya belirli bir klasöre çıkarmayı hiç düşündünüz mü? Bu makalede, yorumlardan resimleri nasıl çıkaracağımı anlatacağım.

Farklı Kaydet fonksiyonu ile yorumlardan resimleri bir klasöre çıkarın ve kaydedin

VBA kodu ile yorumlardan resimleri hücrelere çıkarın

Farklı Kaydet fonksiyonu ile yorumlardan resimleri bir klasöre çıkarın ve kaydedin

Eğer yorumlardaki resimleri bir klasöre çıkarıp kaydetmek istiyorsanız, lütfen şu adımları izleyin:

1. Çıkarmak istediğiniz resimleri içeren sayfayı yeni boş bir çalışma kitabına kopyalayın.

2. Ardından Dosya > Farklı Kaydet'e tıklayarak bu yeni çalışma kitabını belirli bir klasöre Web Sayfası formatında kaydedin, aşağıdaki ekran görüntüsüne bakın:

3. Sonra Kaydet butonuna tıklayarak dosyayı kaydedin ve ardından kaydedilen resimleri görmek için belirli klasöre gidin. Klasörde iki dosya oluşturulur: biri html dosyası, diğeri ise tüm resimleri ve diğer dosyaları içeren bir klasör, aşağıdaki ekran görüntüsüne bakın:

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

VBA kodu ile yorumlardan resimleri hücrelere çıkarın

Aşağıdaki ekran görüntüsünde gösterildiği gibi yorumlardan resimleri hücrelere çıkarmak istiyorsanız, size bir VBA kodu oluşturabilirim, lütfen şu şekilde devam edin:

1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Yorumlardan resimleri hücrelere çıkarın:

Sub CommentPictures()
'Updateby Extendoffcie
    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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve geçerli çalışma sayfasındaki tüm yorumların resimleri bir sonraki sütun hücrelerine çıkarılır, aşağıdaki ekran görüntüsüne bakın: