İ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

Bir Excel hücresindeki bir şəkil mərkəzi necə alınır?

Bu məqalə, ekranın aşağıda göstərildiyi kimi, bir Excel səhifəsində hüceyrələrin mərkəzinə hərəkət şəklini göstərəcəkdir.

VBA koduyla şəkil mərkəzinə keçin


VBA koduyla şəkil mərkəzinə keçin.


Xahiş edirəm, şəkilləri Excel-də bir iş yerindəki hüceyrələrin mərkəzinə daşımaq üçün bunu edin.

1. İş yerini açmaq hüceyrələrdə mərkəzə lazım olan şəkilləri ehtiva edir və sonra basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > Modules. Sonra VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Şəkilləri iş yerindəki hüceyrələrin mərkəzinə köçür

Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub

Qeydlər:

1). Kodda Picture 2 hüceyrə A1 mərkəzinə keçiriləcək, Picture 4 A2 hücresinə köçürüləcək və Şəkil 6 A3 hücresinə keçiriləcək.

2). Daha çox şəkil üçün hüceyrələrin mərkəzinə keçməlisiniz, bu kodu VBA koduna əlavə edin və dəyişdirin Şəkil adıHüceyrə ünvanı ehtiyacınıza əsaslanaraq.

With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Bütün göstərilən şəkillər dərhal aşağıdakı ekran görüntüsünün olduğu kimi müəyyən hüceyrələrin mərkəzinə köçürülür.


Ə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.

Be the first to comment.