Bir Kodu Makro Olarak Görüntüleyememe

[axcar95]

aşağıdaki kodu vba da çalışma sayfasına insert module diyerek kod olarak yazıp kapatıyorum ama hiçbir şekilde bu kodu kullanamıyorum. makro çalıştır dediğimde gözükmüyor. bi makro kaydedip üzerine düzenle deyip düzenlemeye bu kodu yapıştırdığımda ise expected end sub hatası veriyor. ilk kez makro işleriyle uğrşıyorum sittede epey arama yaptım ama çok basit olduğu için galiba kimse bu baş kısmıyla ilgilenmemiş direk kodlar paylaşılmış ama kodu uygulayamıyorum.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = Target.Offset(0, 0).MergeArea.Height - 0.2
.Width = Target.Offset(0, 0).MergeArea.Width - 0.2
.Top = ActiveCell.Top + 0.2
.Left = ActiveCell.Left + 0.2
.Placement = xlMoveAndSize
End With
Set pic = Nothing
Range("F1").Select
End Sub

 

[kulomer46]

Merhaba

Belki sebep budur.
Üzerinde çalıştığınız Excel dosyasını farklı kaydet deyip 'Makro içerebilen Çalışma Kitabı' olarak kaydedip birde öyle deneyiniz.

Selamlar...

 

[EmrExcel16]

Bu kodlar sayfanın kod bölümüne yazılmış ve sayfada 2 tıklama ile tetiklenmiş eğer siz bunu manual olarak tetikleme yapmak istiyorsanız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

bu satırı silip aşağıdaki satırı yazınız ve boş bir modüle ekleyiniz.

Sub Deneme()

 

[axcar95]

Bu kodlar sayfanın kod bölümüne yazılmış ve sayfada 2 tıklama ile tetiklenmiş eğer siz bunu manual olarak tetikleme yapmak istiyorsanız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

bu satırı silip aşağıdaki satırı yazınız ve boş bir modüle ekleyiniz.

Sub Deneme()

Hocam resim ekleme penceresi açılıyor çalıştır dediğimde ama bu sefer de object required hatası alıyorum. resim yine hücrenin içine sığmadan ortalık yere büyük bi halde giriyor.

 

[EmrExcel16]

Deneyiniz , seçili hücreye resimi ekler (vermiş olduğunuz kodlar üzerinden düzenleme yapılmıştır).

Sub Resim_Ekle()
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif Select Picture to Import")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Offset(0, 0).MergeArea.Height - 0.2
    .Width = ActiveCell.Offset(0, 0).MergeArea.Width - 0.2
    .Top = ActiveCell.Top + 0.2
    .Left = ActiveCell.Left + 0.2
    .Placement = xlMoveAndSize
End With
Set pic = Nothing
End Sub

 

[axcar95]

TEŞEKKÜRLER HOCAM

 

[EmrExcel16]

TEŞEKKÜRLER HOCAM

Rica ederim , iyi çalışmalar.