İ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

Mətn qutusuna şəkil əlavə etmək üçün necə?

Varsayılan olaraq, funksiyanı istifadə edərək iş səhifəsinə bir şəkil və ya şəkil əlavə edə bilərsiniz, lakin bu xüsusiyyət mətn qutusuna şəkil əlavə etmək üçün tətbiq edilmir. Bu yazı ilə sizə lazım olduğunuz bir mətn qutusuna şəkil əlavə etməyə kömək edə bilər.

VBA kodu ilə mətn qutusuna bir şəkil və ya şəkil əlavə edin


arrow mavi sağ bubble VBA kodu ilə mətn qutusuna bir şəkil və ya şəkil əlavə edin


Bir mətn qutusuna şəkil əlavə etmək üçün aşağıdakı VBA kodu sizə kömək edə bilər, xahiş edirik bunu edin:

1. Tıklayarak bir mətn qutusu əlavə edin Taxmaq > Mətn qutusu, sonra bir mətn qutusunu çəkin, ekran görüntüsünə baxın:

doc 1 mətn qutusuna şəkil əlavə edin

2. Sonra da basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: mətn qutusuna bir şəkil əlavə edin:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

Qeyd: Yuxarıda göstərilən kodda, Sheet4 şəkil əlavə etmək istədiyiniz mətn qutusunu ehtiva edən hesabat adı və C: \ Users \ DT168 \ Desktop \ şəkillər \ Apple.JPG əlavə etmək istədiyiniz şəkilin şəkil yoludur, bunları ehtiyaclarınıza dəyişdirməlisiniz.

4. Və sonra basın F5 bu kodu çalıştırmak üçün açar, xüsusi şəkil bir dəfə mətn qutusuna daxil ediləcək və mətn qutusunu istədiyiniz kimi düzəldə bilərsiniz, ekran görüntüsünə bax:

doc 2 mətn qutusuna şəkil əlavə edin


Related articles:

Bir mətn qutusunda default dəyərini necə təyin etmək olar?

Yalnız nömrələrin mətn qutusuna daxil olmasına necə icazə verilir?

Mətn qutusunda yazım kontrolünü necə tətbiq etmək olar?

Excel-də dəyərə əsaslanan mətn rəngini necə dəyişdirmək olar?



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.