bmutlu966
Altın Üye
- Katılım
- 26 Ocak 2006
- Mesajlar
- 756
- Excel Vers. ve Dili
- Office 365 İngilizce 64 Bit
- Altın Üyelik Bitiş Tarihi
- 31-01-2025
Excel programım açılışta excel i transparan yapıyor ve bir form aktif oluyor. Programı vista üzerinde excel 2003 de hazırladım ve çalışıyor. Ancak başka bir bilgisayarda XP üzerinde yine excel 2003 de hata veriyor. Aşağıda belirttiğim satırda VB projesine programlı olarak erişim güvenli değil mesajı çıkıyor.
Function SetTransparency(Transp As Long, hwnd As Long)
Dim RetVal As Long
ThisWorkbook.VBProject.VBE.MainWindow.Visible = False 'BU SATIRDA HATA VERİYOR
RetVal = GetWindowLong(xlMain, GWL_EXSTYLE)
RetVal = RetVal Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, RetVal
SetLayeredWindowAttributes hwnd, 0, Transp, LWA_ALPHA
StartTimer
End Function
Muhtemelen excel e VB ile ilgili bir ayar yapmam lazım. Nereden ve nasıl yapacağım. Şimdiden teşekkürler
Function SetTransparency(Transp As Long, hwnd As Long)
Dim RetVal As Long
ThisWorkbook.VBProject.VBE.MainWindow.Visible = False 'BU SATIRDA HATA VERİYOR
RetVal = GetWindowLong(xlMain, GWL_EXSTYLE)
RetVal = RetVal Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, RetVal
SetLayeredWindowAttributes hwnd, 0, Transp, LWA_ALPHA
StartTimer
End Function
Muhtemelen excel e VB ile ilgili bir ayar yapmam lazım. Nereden ve nasıl yapacağım. Şimdiden teşekkürler