Userform çalışırken hata veriyor.

[semerkant]

Compile error : Can't find project or library bu hata neden kaynaklanıyor.

 

[Levent Menteşoğlu]

VBE editöründe gereksiz bir referansınız işaretli görünüyor bu işaretleri kaldırın. (alt+f11-tools-references)

 

[semerkant]

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

 

[Levent Menteşoğlu]

Aşağıdaki kodları normal modül sayfasına kopyalayın.

[vb:1:d94ce2b5d3]Public MyPic

Sub al()
MyPic = Application.GetOpenFilename("BMP dosyalari (*.bmp),*.bmp,JPG dosyalari (*.jpg),*.jpg)")
End Sub
[/vb:1:d94ce2b5d3]

Aşağıdaki koduda Thisworkbook modülüne kopyalayın. Böylece kaydet butonuna (excelin kendi butonu) bastığınızda resim sayfaya yapıştırılacaktır.

[vb:1:d94ce2b5d3]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
on error resume next
Sheets("Data").Select
pLeft = Range("A5").Left
pTop = Range("A5").Top
pWidth = 380
pHeight = 280
ActiveSheet.Shapes.AddPicture MyPic, True, True, pLeft, pTop, pWidth, pHeight
End Sub
[/vb:1:d94ce2b5d3]

 

[semerkant]

Off süper oldu elinize sağlık sanıyorum bu akşam bu kadar soru yeter yarın akşam bomba gibi sorularla burdayım İyi Geceler...

 

[Levent Menteşoğlu]

İyi geceler, yardımcı olabildiysem ne mutlu bana. Sorularınızı her zaman bekliyoruz.