Evet düzeldi teşekkür ederim levent bey
Ayrı bir başlık açmak istemiyorum bir isteğim daha olucak. Aşağıdaki kodda resmi seçtiğimde sayfaya getiriyor.ben resmi sadece seçsin kaydet dediğimde istenilen yere gelmesini istiyorum bu mümkünmü?Yani bi nevi hafızada kaydet diyene dek bekliyecek.
Sheets("Data").Select
Dim MyPic
MyPic = Application.GetOpenFilename("BMP dosyalari (*.bmp),*.bmp,JPG dosyalari (*.jpg),*.jpg)")
If Not MyPic = False Then
pLeft = Range("A5").Left
pTop = Range("A5").Top
pWidth = 380
pHeight = 280
ActiveSheet.Shapes.AddPicture MyPic, True, True, pLeft, pTop, pWidth, pHeight
End If
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.