Fotoğraflı öğrenci not defteri

[abinkays]

Selam arkadaşlar forumda güzel bir çalışma buldum. indirip denemeyi yaptım çok güzel olmuş fakat sayfaya eklenen resimler yazıcıdan çıkmıyor baskı önizlemede görünmüyor. bu eksikliği tamamlar mısınız rica etsem. Şimdiden teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Nesne ekle butonunun kodlarında aşağıda belirttiğim ilaveyi yapınız.

bosluksayısı = bosluksayısı + 4
Next r
[B][COLOR="Red"]
ActiveSheet.DrawingObjects.PrintObject = True[/COLOR][/B]
Range("A1").Select
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub

veya
mevcut kodlarınızdaki
.PrintObject = False

satırlarını True olarak değiştirin.

. . .

 

[abinkays]

kardeşim Allah senden razı olsun ne diyim. Bu muharrem ayında bu programı yapanada yardımcı olan kardeşlerede Allah yardım etsin

 

[YILDIZ YAĞMURU]

Hüseyin bey merhaba

. . .

Nesne ekle butonunun kodlarında aşağıda belirttiğim ilaveyi yapınız.

bosluksayısı = bosluksayısı + 4
Next r
[B][COLOR="Red"]
ActiveSheet.DrawingObjects.PrintObject = True[/COLOR][/B]
Range("A1").Select
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub

veya
mevcut kodlarınızdaki
.PrintObject = False

satırlarını True olarak değiştirin.

. . .

image nesnelerine resimleri nasıl sığdırırız acaba resimlerin tamamı görünmüyor

 

[Emir Hüseyin Çoban]

image nesnelerine resimleri nasıl sığdırırız acaba resimlerin tamamı görünmüyor

. . .

2 seçenekli yine.
Orjinal resim boyutları, standart olmalı. Eklenen İmage nesnesinin boyutuna göre ayarlanmalı
veya

Resim ekle kodlarına aşağıda belirttiğim satırı ilave ederek deneyiniz.

If a = True Then
[B][COLOR="Red"]ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object.PictureSizeMode = fmPictureSizeModeStretch
[/COLOR][/B]ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object.Picture = LoadPicture(resimyükle)
Exit For
Else

. . .

 

[YILDIZ YAĞMURU]

çok teşekkürler