Excel'de tek bir tıklama ile resmi nasıl büyütebilir veya küçültebilirim?
Bir sayfada farklı boyutlarda birden fazla resim olduğunu varsayarsak. Bu resimleri tek bir tıklama ile tek boyutta büyütmenin veya küçültmenin herhangi bir yolu var mı? Çözmek için yerleşik bir özellik yok, ancak bu makalede, sayfadaki tüm resimleri tek bir tıklamayla büyütmek veya küçültmek için bir VBA kodu ekliyorum.
VBA ile tek tıklamayla resimleri büyütün ve küçültün
VBA ile tek tıklamayla resimleri büyütün ve küçültün
Resimleri tek bir tıklama ile büyütmek veya küçültmek için aşağıdaki adımları uygulayın.
1. Resimleri yeniden boyutlandırmak istediğiniz sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden.
2. patlamada Uygulama için Microsoft Visual Basicpenceresini açın ve aşağıdaki kodu boş komut dosyasına yapıştırın.
VBA: Resimleri tek tıklamayla büyütün ve küçültün
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
3. Kodu kaydedin ve pencereyi kapatın. Ve A sütununun herhangi bir hücresine tıkladığınızda, tüm resimler küçülecektir. Ekran görüntüsüne bakın:
4. Ve resmin sağ üstündeki hücreye tıkladığınızda, ilgili resim büyütülecektir. Ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!