İ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 hüceyrə dəyərinə əsaslanan bir görüntüyü necə döndərə bilərəm?

Excel-də biz siçanı sürükləyərək görüntüyə dönə bilərik, ancaq bir hüceyrə dəyərinə əsaslanan bir görüntüyü döndərməyə çalışmısınız. Məsələn, hüceyrə dəyəri 90, Cell A90-da göstərilən ekranın ekranında olduğu kimi, 1 dərəcəsi ilə döndürülür.
doc hüceyrə 1 ilə şəkil qayıt

Makro kodu ilə hüceyrə dəyərinə əsaslanan bir görüntüyü qayıt


Makro kodu ilə hüceyrə dəyərinə əsaslanan bir görüntüyü qayıt


Yalnız bir makro kodu, Excel-də bir hüceyrə dəyərinə əsaslanan bir görüntüyü döndərməyə kömək edə bilər.

1. Cell A1-a bir şəkil daxil edin və sonra döndürmek istediğiniz görüntüyü aktivləşdirin.

2. Basın Alt + F11 düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə və basın Taxmaq > Modules boş bir yeni əlavə etmək Modules. Ekrana baxın:
doc hüceyrə 2 ilə şəkil qayıt

3. Kodu aşağıda qoyun Modules skript yazıb sonra basın F5 kodu çalıştırmaq üçün. Ekran görüntüsünə baxın:

VBA: Görünüşü hüceyrə dəyərinə görə döndürün

Sub RotateImage()
Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value
End Sub

doc hüceyrə 3 ilə şəkil qayıt
doc hüceyrə 1 ilə şəkil qayıt

Qeyd: kodda, A1, görüntüyü əsasən dayandırmaq istəyən hüceyrədir, siz lazım olduğu kimi dəyişə bilərsiniz.


Əlaqədar 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.
    Haley · 11 months ago
    This is what I want to do to an image, but I want it to rotate from the vertical position by however many degrees the cell states each time. However, say the cell says 30, it will rotate 30 degrees, but then if the cell value changes to 15, it will rotate 15 from the 30 position (45 from the vertical). I want it to rotate 15 from the vertical this time. Is there a way to do this?


    Thanks!
    • To post as a guest, your comment is unpublished.
      Andrew · 4 months ago
      Take the code from above:

      Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

      And modify it like so:

      Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
    • To post as a guest, your comment is unpublished.
      Jon H. · 9 months ago
      Hey there, I have the same requirement too. Have you by chance figured out how to have the image rotate from "zero" every time?
      • To post as a guest, your comment is unpublished.
        Sunny · 9 months ago
        Sorry I have no idea about this problem. You can place your prolem in out forum, maybe someone can help you solve it. https://www.extendoffice.com/forum.html
        • To post as a guest, your comment is unpublished.
          Andrew · 4 months ago
          Take the code from above:

          Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

          And modify it like so:

          Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value