Dosyamdaki resmi getiremiyorum

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda aşağıdaki kodlarla resmi bir türlü getiremedim bir bakabilirmisiniz?

Saygılar

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("G5") 'Resmin yerleştiği hücre
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

Dosyanın boyutu büyük gönderemiyorum
Acaba bu kodun neresinde hata yapıyorum?

Saygılar sunarım

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=22790

Buradaki ilk dosyayada yer alan kodlarla karşılaştırın.

Ben kodlarınızda bir hata göremedim.

Dosyayı küçültüp ekleyin. (Dosyada 3 resim bırakın gerisini silin. Dosya küçülecek.)


..

 

[Mdemir63]

Hocam merhabalar,

Dosyayı ekledim ancak resimsiz ekleyebildim. Çünkü içine bir resim koyduğumda dosya yine büyüyor. Size zahmet bir resim ekleyerek çözebilirmisiniz. Ben orjinal dosyama uyarlayabilirim.

Saygılar sunarım

 

[Mdemir63]

Nerdesiniz hocam

Saygılar

 

[Merhum İdris SERDAR]

Hocam merhabalar,

Dosyayı ekledim ancak resimsiz ekleyebildim. Çünkü içine bir resim koyduğumda dosya yine büyüyor. Size zahmet bir resim ekleyerek çözebilirmisiniz. Ben orjinal dosyama uyarlayabilirim.

Saygılar sunarım

Dosyanızın neden çalışmadığını anlayamadım.

Örnek dosyalara bakarak yeni bir dosyada yapmaya çalışın.

..

 

[Mdemir63]

Dosyanızın neden çalışmadığını anlayamadım.

Örnek dosyalara bakarak yeni bir dosyada yapmaya çalışın.

..

Selamlar,
Hocam benim dosyamda hem ComboBox hemde ListBox var onlardan olabilirmi acaba ya da resmin formatı olabilirmi (Örn: Jpg veya Gif gibi)

Saygılar

 

[Orion1]

Merhaba.
Ben forumdan dağa önce bir sayfadan resim gösterme kodları almıştım.
Sizin dosyanıza uyarladım.
Gayet iyi çalışıyor.Denedim.
Yalnız Sayfalardaki resimlere Resim biçimlendirden girip en ve boy oranı sabit değil şeklinde ayarlayın.

Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, 60, 69).Chart

Yukarıdaki kodda Activesheet yazan kelimeyi sizin resimleriniz hangi sayfada ise onu yazın. Örnek

Sheets("Sayfa1").ChartObjects.Add(1, 1, 60, 69).Chart

Kodlar aşağıda .Dosyada ise çalışma sayfasında kod bölümünde.
Listbox'a tıklayınca resimler gösteriliyor.
Bir deneyin bakalım olacakmı.
Bende sorunsuz çalıştı.

Private Sub GetPicture1() '(MyShape As String)
    Dim MyShape As String
  Dim MyChart As Chart
  Dim TempFile As String
  If Range("D5").Value = "" Then Exit Sub
  On Error GoTo atla
  If Range("B1").Value <> "" Then
    Shapes(Range("B1").Value).Select
    Selection.Delete
End If
atla:
On Error GoTo son
  TempFile = "Temp.jpg"
  MyShape = Range("G5").Value
  Sheets("ANASAYFA").Shapes(MyShape).CopyPicture xlScreen, xlBitmap
  Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, 60, 69).Chart
  With MyChart
      .Paste
      .Export TempFile
      .Parent.Delete
  End With
    Range("G5").Select
    ActiveSheet.Pictures.Insert(TempFile).Select
    Range("B1").Value = Selection.Name

    Selection.ShapeRange.Height = Range("G5").Height
    Selection.ShapeRange.Width = Range("G5").Width

  Kill TempFile
  Set MyChart = Nothing
son:
  Range("A1").Select
End Sub

 

[Mdemir63]

Selamlar,
Hocam elinize sağlık tamam dediklerinizi yaptım bendede çalışıyor ancak ben resimleri ANASAYFAYA yapıştırıyorum aynı sayfadan alıyor resimleri bu yukarıda il mesajımdaki kodlarla hiç problemsiz çalıştırıyordum ama nedense şimdi çalışmıyor anlayamadım. Emeğiniz için ayrıca çok teşekkür ederim.

Saygılar sunarım