[Yardım]  Excel Normal Konumdayken Resize Çerçevesini Kaldırma

API - Application Programming Interface
Yazılım Programlama Arayüz Uygulaması

Excel Normal Konumdayken Resize Çerçevesini Kaldırma

İleti#1)  l3oomerangg » 21 Kas 2018 01:03

Merhaba arkadaşlar.

Excel penceresi Application.WindowState = xlNormal konumdayken aşağıdaki kodlarla Excel penceresinin titlebar ve diğer menülerini gizleyebiliyorum. Fakat maalesef kenar çizgilerini, yani resize çerçevesini kaldıramıyorum.

Kod: Tümünü seç
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Sub Test()

    Dim aHWND       As Long
    Dim Style       As Long
   
        With Application
            .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
            .DisplayFormulaBar = False                             
            .DisplayScrollBars = False                           
            .DisplayStatusBar = False                             
            .WindowState = xlNormal                               

        End With
   
        With ActiveWindow
            .DisplayWorkbookTabs = False                       
            .DisplayHeadings = False                           

        End With
       
        aHWND = Application.hWnd
        Style = GetWindowLong(aHWND, -16)
        Style = Style And Not &HC00000

        SetWindowLong aHWND, &HFFF0, Style
        DrawMenuBar aHWND
       
End Sub


Umarım derdimi anlatabilmişimdir. Bu çerçeveyi kaldırabilmek için yardımlarınızı rica ediyorum.

Not : SetWindowRgn API si ile kenarları transparan yaparak yokedebiliyorum ama bu bir UserForm olmadığı için kodlar çalışana kadar etki ediyor. Kodlar biter bitmez eski haline dönüyor. UserFormda userforma kapanana kadar etkisini gösterebiliyor, ama maalesef normal excel sayfasında aynı şekilde işlemiyor.
Kullanıcı avatarı
l3oomerangg
Yeni Başlamış
 
Kayıt: 15 Haz 2018 03:59
Meslek: Serbest
Yaş: 40
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sultangazi

Forum Excel ve API

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe