image nesnesinde kenarlılık kaldırma hk

talebeyim · 28 Aralık 2015

çalışmada Userformunda bir image nesnesini excel formuna çağırıyoruz.
Ve image nesnesini yazdırıyoruz. Fakat Userformun properties'inde BackColor ve BorderColorları beyaz vermemize rağmen
Yazıcıdan çıktı aldığımızda bunlara kenarlılık ekliyor.

İşin ilginç yanı;
Nesnenin hiç bir kenarlılığı yok, Fakat kodu çalıştırdığımda nesne excel formuna çıktığında kodu VBA'dan "stop" ederek durduruyorum, Tasarım moduna geçiyorum ve nesnenin özelliklerine bakıyorum ki, BackColor ve BorderColor Kendini Default renklerine almış.

Yani aşağıdaki kodu çalıştırdığımda image nesnesi eklenince, ya kenarlılığını kaldır yada kenarlılığı beyaz renk yap gibi bir seçenek varmı dır ?

Kod:

Sub OK()
Application.ScreenUpdating = False
On Error GoTo Son
For a = 17 To Sayfa1.Range("C1500").End(3).Row
If Sayfa1.Cells(a, "C").Value = "...MÜDÜRÜ" Then
   Sayfa1.OLEObjects.Add(ClassType:="Forms.Image.1", Width:=130, Height:=80).Select
   Selection.Top = Sayfa1.Cells(a + 1, "C").Top
   Selection.Left = Sayfa1.Cells(a, "C").Left
   Selection.Object.Picture = imzalar.Image1.Picture
End If
Next
Son:
MsgBox "...Müdürü imzaladı."
Application.ScreenUpdating = True
End Sub

PLİNT · 28 Aralık 2015

talebeyim' Alıntı:
çalışmada Userformunda bir image nesnesini excel formuna çağırıyoruz.
Ve image nesnesini yazdırıyoruz. Fakat Userformun properties'inde BackColor ve BorderColorları beyaz vermemize rağmen
Yazıcıdan çıktı aldığımızda bunlara kenarlılık ekliyor.
Yani aşağıdaki kodu çalıştırdığımda image nesnesi eklenince, ya kenarlılığını kaldır yada kenarlılığı beyaz renk yap gibi bir seçenek varmı dır ?

Merhaba
Kodlarınız;
Formdaki nesneyi aktarmıyor.
"Userform" da bulunan "Image1" nesnesindeki resmi sayfada oluşturduğu
"İmage1" nesnesine aktarıyor. Sayfada oluşan nesne biçimlenmelidir,
kodlarınızı aşağıdaki gibi deneyiniz.
Kodlardaki mavi bölüm otomatik boyut içindir gerek görmezseniz silersiniz.

Kod:

Sub OK()
Application.ScreenUpdating = False
On Error GoTo Son
For a = 17 To Sayfa1.Range("C1500").End(3).Row
If Sayfa1.Cells(a, "C").Value = "...MÜDÜRÜ" Then
   Sayfa1.OLEObjects.Add(ClassType:="Forms.Image.1", Width:=130, Height:=80).Select
   Selection.Top = Sayfa1.Cells(a + 1, "C").Top
   Selection.Left = Sayfa1.Cells(a, "C").Left
   Selection.Object.Picture = imzalar.Image1.Picture
[COLOR="Blue"]Selection.Object.AutoSize = True[/COLOR]
 [COLOR="Red"]  Selection.Object.BackStyle = 0
Selection.Object.BorderStyle = 0[/COLOR]

End If
Next
Son:
MsgBox "...Müdürü imzaladı."
Application.ScreenUpdating = True
End Sub

talebeyim · 29 Aralık 2015

PLİNT' Alıntı:
Merhaba
Kodlarınız;
Formdaki nesneyi aktarmıyor.
"Userform" da bulunan "Image1" nesnesindeki resmi sayfada oluşturduğu
"İmage1" nesnesine aktarıyor. Sayfada oluşan nesne biçimlenmelidir,
kodlarınızı aşağıdaki gibi deneyiniz.
Kodlardaki mavi bölüm otomatik boyut içindir gerek görmezseniz silersiniz.

Kod:

Sub OK() Application.ScreenUpdating = False On Error GoTo Son For a = 17 To Sayfa1.Range("C1500").End(3).Row If Sayfa1.Cells(a, "C").Value = "...MÜDÜRÜ" Then Sayfa1.OLEObjects.Add(ClassType:="Forms.Image.1", Width:=130, Height:=80).Select Selection.Top = Sayfa1.Cells(a + 1, "C").Top Selection.Left = Sayfa1.Cells(a, "C").Left Selection.Object.Picture = imzalar.Image1.Picture [COLOR="Blue"]Selection.Object.AutoSize = True[/COLOR] [COLOR="Red"] Selection.Object.BackStyle = 0 Selection.Object.BorderStyle = 0[/COLOR] End If Next Son: MsgBox "...Müdürü imzaladı." Application.ScreenUpdating = True End Sub

Aynen dediğin gibiymiş Sorun çözülmüştür. "PLİNT" Teşekkür ederim yardımın için.