Soru Kopyala Resim ve Grafik beraber

[hlojan]

Merhaba ;

Belirli bir range kopyalayıp yapıştırırken içindeki reism grafik yada shape ile birlikte kopyalasın istiyorum

Eğer copy paste ile mümkün değil ise uzun yol galiba resim.select selection.copy range paste yapacağız.

Ozaman o range içindeki picture, shape ve graph ları tespit edip vba kod ile tespit edip aynı pozisyonda yapıştırmanın bir yolu varmıdır?

Örnek dosya ektedir
İyi Çalışmalar

 

[hlojan]

Merhaba;

bir yandan beklerken bir yandan denemeler yaptım.

Çalıştı. Belki aynı şeye ihtiyacı olan olur diye ekliyorum

Teşekkürler

Private Sub CommandButton1_Click()
Dim shp As Shape
Dim kynk As Range
Dim hdf As Range
Set kynk = Range("b2:f18")
Set hdf = Range("m2")
kynk.Copy
hdf.PasteSpecial
xleft = kynk.Left
xtop = kynk.Top


 

For Each shp In ActiveSheet.Shapes
    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), kynk) Is Nothing Then
    shleft = shp.Left
    shtop = shp.Top
        shp.Copy
        hdf.PasteSpecial
        With Selection
        .Left = hdf.Left + (shleft - xleft)
        .Top = hdf.Top + (shtop - xtop)
        End With
      Else
      End If
Next shp
 

End Sub