Şekil içine grafik yükleme

[tamer42]

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?

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

 

[Korhan Ayhan]

Merhaba,

Grafiği resim olarak dışarı export ettikten sonra şeklin içine çağırabilirsiniz.

Bir örnek; https://www.excel.web.tr/threads/sayfadan-resim-cagirma.196920/#post-1100084

 

[tamer42]

Merhaba,

Grafiği resim olarak dışarı export ettikten sonra şeklin içine çağırabilirsiniz.

Bir örnek; https://www.excel.web.tr/threads/sayfadan-resim-cagirma.196920/#post-1100084

Çok teşekkür ederim Korhan Hocam