Resim Çok Büyük ve sığmayan kısımlar kesilecek hatası

[Mikdad]

Selamun Aleykum Dostlar,
Excelde bir yeni sayfa oluştur kodu kullanarak mevcut bir sayfayı kopyalayarak çoğaltıyorum.

sayfayı çoğaltıp kaydet dediğimde sorun yok ama çalışma sayfasını kapat dediğim de , "Resim Çok Büyük ve sığmayan kısımlar kesilecek hatası" veriyor biraz bekledikten sonra kapatıyor. ve işin enteresan tarafı da dosyada resim hiç yok. bu koduna yardımcı olur musunuz. eğer sayfa kopyalama yapmaz isem herhangi bir hata vermiyor.

 

[halit3]

Bu kodu bir dene

Sub YeniSayfaOlustur()
Dim yeniSayfaAdi As String
Dim sablonSayfa As Worksheet
Dim yeniSayfa As Worksheet
Dim hedefHucresi As Range

' Kullanıcıdan yeni sayfanın adını al
yeniSayfaAdi = InputBox("Yeni sayfa adını yazın:", "Sayfa Adı")

' Eğer kullanıcı iptal ederse veya boş bir isim girerse işlemi sonlandır
If yeniSayfaAdi = "" Then
Exit Sub
End If

' Eğer aynı isimde sayfa varsa uyarı ver ve işlemi sonlandır
For Each ws In ThisWorkbook.Sheets
If ws.Name = yeniSayfaAdi Then
MsgBox "Aynı isimde bir sayfa zaten var. Lütfen farklı bir isim girin.", vbExclamation
Exit Sub
End If
Next ws

' Seçili hücreyi al
Set hedefHucresi = ActiveCell

' Hedef hücreye yeni sayfanın adını ve linkini ekle
hedefHucresi.Value = yeniSayfaAdi
hedefHucresi.Hyperlinks.Add _
Anchor:=hedefHucresi, _
Address:="", _
SubAddress:="'" & yeniSayfaAdi & "'!A1", _
TextToDisplay:=yeniSayfaAdi

' Link hücresini güzelleştir (örneğin, kalın ve renkli yap)
With hedefHucresi.Font
.Bold = True
.Color = RGB(0, 0, 255) ' Mavi renk
End With

Sheets("Sablon").Copy After:=Sheets(Sheets.Count)
Sheets(ActiveSheet.Name).Name = yeniSayfaAdi
Sheets(yeniSayfaAdi).Cells(1, 1).Value = yeniSayfaAdi

End Sub

 

[Mikdad]

Allah Razı olsun Hocam Harikasınız. Sorunsuz Çalıştı. Hakkınızı helal edin . Herşey İçin Teşekkür ederim.