İ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ə bir kliklə şəkil genişləndirmək və ya kiçiltmək necədir?

Müxtəlif ölçüdə olan bir hesabatda birdən çox şəkil var olduğunu düşünürəm. Bu şəkilləri bir kliklə böyütmək və ya kiçiltmək üçün bir yol varmı? Bunu həll etmək üçün heç bir daxili xüsusiyyət yoxdur, amma bu yazıda bir klik ilə bütün şəkilləri böyütmək və ya kiçiltmək üçün VBA kodunu təqdim edirəm.

VBA tərəfindən bir kliklə şəkilləri böyütmək və kiçiltmək


arrow mavi sağ bubble VBA tərəfindən bir kliklə şəkilləri böyütmək və kiçiltmək


Bir kliklə şəkilləri böyütmək və ya küçülmək üçün addımlar atın.

1. Şəkilləri yenidən ölçmək istədiyiniz səhifənin sekmesinde sağ basın və seçin Kodları baxın kontekst menyusundan.
doc enlarge picture bir klik 1

2. Popping ildə Proqram üçün Microsoft Visual Basickodun altındakı boş skriptə yapışdırıb.

VBA: Bir kliklə şəkilləri böyütmək və kiçiltmək

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc enlarge picture bir klik 2

3. Kodu saxla və pəncərəni bağlayın. A sütununda hər hansı bir hüceyrədə vurduğunuzda, bütün şəkillər küçüləcək. Ekran görüntüsünə baxın:
doc enlarge picture bir klik 3

4. Və şəkilin sağ üst hissəsindəki hüceyrəni tıkladığınızda, nisbi şəkil genişlənəcəkdir. Ekran görüntüsünə baxın:
doc enlarge picture bir klik 4

İpucu.Bir hesabatda su nişanını tez bir zamanda yerləşdirmək istəyirsinizsə, Excel üçün Kutools istifadə etməyə çalışın Su nişanı daxil edin aşağıdakı ekran görüntüsündə göstərildiyi kimi. 60 gün ərzində məhdudiyyətsiz tam funksiyadır, yükləyin və indi pulsuz bir sınaq versiyasını edin.

doc əlavə su nişanı


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.
    User · 8 months ago
    When I save as a Macro-Enabled workbook, close and then re-open, the image integrity has been lost.
    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      I have tested that to save the workbook as macro-enable workbook, reopen the macro-enable workbook, the image is still there, and the code can work as well. Maybe try to save the workbook before you saving it as macro-enable workbook.
  • To post as a guest, your comment is unpublished.
    User · 1 years ago
    Doesn't work
    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      Sorry, I did not know why it does not work in your case, but before carrying out this tutorial, I have tested it several times.