Resmi Tam sayfa Yapma

[senuyurken]

Merhaba Arkadaşlar , Aşağıdaki örnek çalışmada
1 - Belirlki Bir klasörden H1 Hücresine resim numarası yazarak resim çağırma
2 - Resmi Tam sayfa olarak boyutlandırmak istiyorum. ( Yani A1:F57 hücrelerine tam yerleştirmek istiyorum)

Yardımcı olursanız sevinirim.

Kullandığım Kod :


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next

Set Alan = Range("a1:F57")
For Each resimm In ActiveSheet.Pictures
If Not Intersect(resimm.TopLeftCell, Alan) Is Nothing Then
resimm.Delete
End If
Next
Set Alan = Nothing

Dim Resimyolu As Variant
Dim resim As Object
Resimyolu = ThisWorkbook.Path & "\" & Range("h1") & ".png"
Set resim = ActiveSheet.Pictures.Insert(Resimyolu)
With Range("A1:f57")
resim.Top = .Top
resim.Left = .Left
resim.Height = .Height
resim.Width = .Width
End With
Application.ScreenUpdating = True
End Sub

 

[muygun]

Merhaba;
Tam sayfa olayı Bilgisayara çözünürlüğe Satır ve Sütun genişliklerine göre değişken
Eki deneyin kodlardaki;

Selection.ShapeRange.Height = 855 'yükseklik
Selection.ShapeRange.Width = 495 'genişlik

Sayıları sayfanıza göre düzenleyin.
İyi çalışmalar.

 

[senuyurken]

Merhaba;
Tam sayfa olayı Bilgisayara çözünürlüğe Satır ve Sütun genişliklerine göre değişken
Eki deneyin kodlardaki;

Selection.ShapeRange.Height = 855 'yükseklik
Selection.ShapeRange.Width = 495 'genişlik

Sayıları sayfanıza göre düzenleyin.
İyi çalışmalar.

Öncelikle teşekkür ederim. İstediğim şekilde resim yerleşiyor.

Birde resim yolunu nasıl değiştireceğim

örneğin D:\resimler\

böyle bir klasörün içinden yine H1 hücresine resim numarası yazarak çağırmak istiyorum.

Nerde değişiklik yapmam gerekir acaba..

 

[muygun]

Kodlarda;

ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select

Satırını;

ActiveSheet.Pictures.Insert("D:\resimler\" & Target.Value & ".jpg").Select

Şeklinde değiştirin

 

[senuyurken]

ActiveSheet.Pictures.Insert("D:\resimler\" & Target.Value & ".jpg").Select

Çok Çok Çok Teşekkür ediyorummmmmm