İ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ə üzərinə tıkladığınızda görüntüyü necə genişləndirmək olar?

Sütun şəklində bir siyahı əlavə etdiyinizə və şəkil ölçüsünün hüceyrə ölçüsü ilə uyğunlaşdığını düşündüyünüz kimi ekran görüntüsü aşağıda göstərildi. Daxil edilən şəkil kiçik göründüyü kimi, bəzi məqsədlər üçün böyütməli olmağınız tələb oluna bilər. Bu yazıda Excel-də üstünə vurduğunuzda və ikinci kliklə orijinal ölçüyə bərpa edildikdə bir şəkil genişləndirilməsi üsulu göstərilir.

VBA kodu ilə vurduğunuzda şəkili böyüt


arrow mavi sağ bubbleVBA kodu ilə vurduğunuzda şəkili böyüt


Aşağıdakı VBA kodu Excel-də üzərinə basdığınızda bir görüntüyü genişləndirməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Yalnızca tıklayaraq genişləndirmək üçün lazım olan şəkli sağ basın və sonra basın Makroyu təyin edin kontekst menyusundan. Ekran görüntüsünə baxın:

2. İçində Makroyu təyin edin informasiya qutusuna basın yeni düyməsini basın.

3. Popping up Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı VBA kodunu kopyalayıb yapıştırın SubEnd Sub kodları. Ekran görüntüsünə baxın:

VBA kodu: Excel-də bu səhifəni basın

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

Qeyd: Kodda böyük = 3 kodunda şəkilin böyük ölçüsünü təyin edə bilərsiniz.

4. Sonra basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

İndi şəkil çəkərkən, siz göstərdiyiniz ölçüyə görə genişləndiriləcək və yenidən vurduqdan sonra orijinal ölçüyə bərpa ediləcək ekran şəkilləri göstərilir.


arrow mavi sağ bubbleƏlaqəli məqalələr:



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.
    David · 12 days ago
    when u have inserted the code and press save the pics gets smaller and smaller... great idea but does not work i´m afraid...
  • To post as a guest, your comment is unpublished.
    slomo · 8 months ago
    This code works well
    But when you open the workbook a second time, the images come out blurred
  • To post as a guest, your comment is unpublished.
    Rodrigo Cabezas · 9 months ago
    Maravilloso funciona perfecto!!!.
    Hay forma que la imagen quede en el cento de la pantalla, solo es una oncesion, nada mas, la macro anda muy bien