Şekil içine grafik yükleme

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,061
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba,
Aşağıdaki kodla sayfadaki bir şekil içerisine resim ekleyebiliyoruz,
öğrenmek istediğim; bu şeklin içine sayfada bulunan herhangi bir hazır grafiği ("grafik 1") resim gibi nasıl yükleyebiliriz?

Kod:
Sub AddPicture()

Dim shp As ShapeRange
Set shp = ActiveSheet.Shapes.Range(Array("Rectangle 1"))

With shp.Fill
.Visible = msoTrue
.UserPicture "C:\Users\User\Pictures\MyNicePc.png"
.TextureTile = msoFalse
.RotateWithObject = msoTrue
End With

End Sub
 

Ekli dosyalar

Üst