UserForm Resize Özelliği Eklemek

26 Aralık 2020 26 Aralık 2020 791

UserForm Resize Özelliği Eklemek isimli kodlar UserForm nesnenizi istediğiniz gibi boyutlandırmanızı sağlayacak niteliktedir.

Option Explicit

Private Const MResizer = "ResizeGrab"
Private WithEvents m_objResizer As MSForms.Label
Private m_sngLeftResizePos As Single
Private m_sngTopResizePos As Single
Private m_blnResizing As Single

Private Sub m_AddResizer()
    Set m_objResizer = Me.Controls.Add("Forms.label.1", MResizer, True)
    With m_objResizer
        With .Font
            .Name = "Marlett"
            .Charset = 2
            .Size = 14
            .Bold = True
        End With
        .BackStyle = fmBackStyleTransparent
        .AutoSize = True
        .BorderStyle = fmBorderStyleNone
        .Caption = "o"
        .MousePointer = fmMousePointerSizeNWSE
        .ForeColor = RGB(100, 100, 100)
        .ZOrder
        .Top = Me.InsideHeight - .Height
        .Left = Me.InsideWidth - .Width
    End With
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub m_objResizer_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        m_sngLeftResizePos = X
        m_sngTopResizePos = Y
        m_blnResizing = True
    End If
End Sub

Private Sub m_objResizer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        With m_objResizer
            .Move .Left + X - m_sngLeftResizePos, .Top + Y - m_sngTopResizePos
            Me.Width = Me.Width + X - m_sngLeftResizePos
            Me.Height = Me.Height + Y - m_sngTopResizePos
            .Left = Me.InsideWidth - .Width
            .Top = Me.InsideHeight - .Height
        End With
    End If
End Sub

Private Sub m_objResizer_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        m_blnResizing = False
    End If
End Sub

Private Sub UserForm_Initialize()
    m_AddResizer
End Sub

Private Sub UserForm_Terminate()
    Me.Controls.Remove MResizer
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> UserForm yazısına tıklayın.
  4. Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Üstteki kodları bir UserForm nesnesine eklerseniz, açıldığında boyutları ile istediğiniz gibi ekran üzerinden oynayabilirsiniz. 64 bit Ofis Sürümlerinde kodlar çalışmayabilir.

50 Farklı Hazır Makro (VBA) Kodu
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Hücre Aralığını Görüntüye Dönüştürme
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Excel Makroları ile Klasör Silme
Yanıp Sönme Efekti Verme Kodu
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Dolar Okutma Makrosu
Seçimdeki Alternatif Satırları Vurgulama
İçindekiler Tablosu Oluşturma
Ondalık Sayıları Tam Sayıya Çevirme
Bir Dizeden Sayısal Veriler Elde Etme
Sütunu Kes Kopyala ve Yapıştır
R1C1 Referans Stilini Etkinleştirme
Zaman Aralığı Ekleme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Gizlenmiş Makro Örnekleri
Excel Hücresini Seçme Makrosu
Excel Makro Modulü Silme Kodu
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Seçili Satırların Sayısını Bulma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Excel Satır Silme Kodu
Transparan UserForm Oluşturmak
Excel Makroları ile İşlemci Bilgilerini Bulma
Boş Hücrelerin Görünmez Alanını Vurgulama
Birden Çok Sütun Ekleme
Bir Aralıktaki Maksimum Değeri Renklendirme
Excel Makroları ile Dosya Sayısını Bulma
Kullanıcı Adınızı Bulma
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Birden Çok Satır Ekleme
Tek Satırı Kes Kopyala ve Yapıştır
Sayılara Yeni Bir Sayı Ekleme
Aç Penceresini Açan Makro
Makrolar ile Klasör Kopyalama
Hücredeki Değişikliklerin Kaydını Tutma
Aktif Hücreye Günün Tarihini Yazma
Seçili Aralığa Ait Bilgilerin Listelenmesi
Excel Makroları ile Dosya Taşıma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
X Sayı Atlayarak Satır Gizleme
Yorumları Yazdırma
Belirli Kriterlere Sahip Satırları Silme
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Select Case Kullanımı
Api ile Bilgisayar Adını Bulmak
Tek Hücreyi Kes Kopyala ve Yapıştır
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Txt Dosyası Oluşturma
Metin Sarmayı Kaldırma

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...