makro ile pdf nesnesi ekleme

[bmutlu966]

Aşağıdaki kodlar ile bir excel sayfasına resim dosyası seçip ekleyebiliyorum. Ancak ben bir pdf dosyasının görüntüsünü sayfaya eklemek istiyorum. Bunu nesne ekle bölümünden yapabiliyoruz. Makro ile bu nesne ekle penceresinin otomatik açılması için kodlarda nasıl bir değişiklik yapmalıyım.


Sub ekle()

Dim sPicture As String, pic As Picture
Range("b5").Select

sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Faturayi seçiniz.")

Set pic = ActiveSheet.Pictures.Insert(sPicture)

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Dim oleobj As OLEObject 
Dim oleobjs As OLEObjects 
Set oleobj = oleobjs.Add()

 

[bmutlu966]

Korhan hocam öncelikle teşekkürler.

Ben tam olarak istediğim şeyi ekli dosyadaki gibi yapabildim. Ancak yardıma ihtiyacım var.

1. Excel sayfasına nesne olarak getirdiğim pdf dosyasını sayfadan makro ile nasıl sileceğim.
2. Sayfaya getirdiğim pdf nesnesinin istediğim en ve boyutta olmasını hangi kodlarla sağlayabilirim.?

Not : Ekli dosyada eklenen pdf eklendiği klasörden siliniyor. Önemli dosyalarınızla deneme yapmayın lütfen.

 

[bmutlu966]

Hallettim.
İlgilenen arkadaşlar için kodlara bakabilir.

 

[ozzykafkef]

Kodları paylaşır Mısınız? Makro çalıştığında nesne seçme penceresi açılacak yapamadık.