Butona Uyarı/Açıklama verdirme

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Üstadlarım
Yardımınıza ihtiyacım var. Müsait olan bir üstadımdan rica etsem
Userformda bulunan togglebutton üzerine gelince; "togglebutton 8 tane ve her birine ayrı ayrı açıklama gireceğim, ControlTipText kısmına yazılmayacak kadar uzun bir cümle" Başlıklı ve hemen altında açıklama kısmını yazacağım bir şekilde togglebutton adı bildirilerek şekilde kod için yardımcı olabilir misiniz?
Örnek
UZMAN ÖĞRETMEN (başlık kısmı)
......................................................................... (açıklama kısmı)
.........................................................................
.........................................................................
.........................................................................

Şimdiden emeğinize, yardımınıza sonsuz teşekkür ederim.
Saygılarımla
 
Üstadlarım
Yardımınıza ihtiyacım var. Müsait olan bir üstadımdan rica etsem
Userformda bulunan togglebutton üzerine gelince; "togglebutton 8 tane ve her birine ayrı ayrı açıklama gireceğim, ControlTipText kısmına yazılmayacak kadar uzun bir cümle" Başlıklı ve hemen altında açıklama kısmını yazacağım bir şekilde togglebutton adı bildirilerek şekilde kod için yardımcı olabilir misiniz?
Örnek
UZMAN ÖĞRETMEN (başlık kısmı)
......................................................................... (açıklama kısmı)
.........................................................................
.........................................................................
.........................................................................

Şimdiden emeğinize, yardımınıza sonsuz teşekkür ederim.
Saygılarımla
Aşağıdaki gibi bir çözüm olmuyor mu ?

VBA:
Me.ToggleButton1.ControlTipText = "Userformda bulunan togglebutton üzerine gelince; togglebutton 8 tane ve her birine ayrı ayrı açıklama gireceğim, ControlTipText kısmına yazılmayacak kadar uzun bir cümle"
 
Feyzullah abi
Dediğiniz şekilde çözüm olur. Ancak buna bir başlık ekleyebilir miyiz? Başlık üstte açıklama altta. Mümkün müdür?


UZMAN ÖĞRETMEN
Userformda bulunan togglebutton üzerine gelince; togglebutton 8 tane ve her birine ayrı ayrı açıklama gireceğim, ControlTipText kısmına yazılmayacak kadar uzun bir cümle"
gibi...
 
Kod:
Option Explicit

Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long) As Long
Declare Function GetSysColor Lib "user32" ( _
ByVal nIndex As Long) As Long

Public Function ToolTipLabelOlustur(OLE_Nesnesinin_Konumu As Object, _
    METIN As String) As Boolean
    Dim SariRenkliToolTipAciklamaKutucugu As OLEObject
    Dim OLE_Nesnesi As OLEObject

    Const GORUNTU_GENISLIGI = 0
    Const METNIN_RENGI = 23
    Const ART_ALANIN_RENGI = 24
    Const CERCEVENIN_RENGI = 6
    Application.ScreenUpdating = False

    For Each OLE_Nesnesi In ActiveSheet.OLEObjects
        If OLE_Nesnesi.Name = "KUTUCUK" Then OLE_Nesnesi.Delete
    Next

    Set SariRenkliToolTipAciklamaKutucugu = _
        ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1")

    With SariRenkliToolTipAciklamaKutucugu
        .Top = UserForm1.Top - UserForm1.Height + 12
        .Left = UserForm1.Left + UserForm1.Width
        .Object.Caption = METIN
        .Object.Font.Size = 9
        .Object.BackColor = GetSysColor(ART_ALANIN_RENGI)
        .Object.BackStyle = 1
        .Object.BorderColor = GetSysColor(CERCEVENIN_RENGI)
        .Object.BorderStyle = 1
        .Object.ForeColor = GetSysColor(METNIN_RENGI)
        .Object.TextAlign = 1
        .Object.AutoSize = False
        .Width = GetSystemMetrics(GORUNTU_GENISLIGI)
        .Object.AutoSize = True
        .Width = .Width + 2
        .Height = .Height + 2
        .Name = "KUTUCUK"
    End With

    DoEvents

    With Application
        .ScreenUpdating = True
        .OnTime Now() + TimeValue("00:00:10"), "ToolTipAciklamasiniSiL"
    End With

End Function


Public Sub ToolTipAciklamasiniSiL()

    Dim SariRenkliToolTipAciklamaKutucugu As OLEObject

    For Each SariRenkliToolTipAciklamaKutucugu In ActiveSheet.OLEObjects
        If SariRenkliToolTipAciklamaKutucugu.Name = "KUTUCUK" _
            Then SariRenkliToolTipAciklamaKutucugu.Delete
    Next

End Sub

Sub KutuKutuPense()

    Dim exd As String
    
    exd = "- Dört yıl süreli yüksek öğrenimi bitirenlerden yüksek mühendis, mühendis, yüksek mimar, mimar sıfatını almış olanlar ile bunlardan öğretmenlik hizmetinde çalışanlar, ." & vbCrLf & _
               "Erkek Teknik Yüksek Öğretmen Okulu, Erkek Teknik Öğretmen Okulu ve Devlet Tatbiki Güzel Sanatlar Yüksek Okulu mezunları, İstanbul Devlet Güzel Sanatlar Akademisi ile uygulamalı Endüstri Sanatları Yüksek Okulu mezunları, " & vbCrLf & _
               "Teknik Eğitim Fakültesi (Yüksek Teknik Öğretmen Okulu ve Güzel Sanatlar Fakültesi, İstanbul Devlet Tatbiki Güzel Sanatlar Yüksek Okulu) mezunları, öğrenimlerine göre tespit edilen giriş derece ve kademelerine bir derece,"

        ToolTipLabelOlustur UserForm1, exd

End Sub

yukarıda yer alan kod başka bir siteden alınmıştır.
Açıklama excel sayfasında çıkmaktadır. Halihazırda ki Kodu;
açıklamanın yer aldığı labelin togglebutton üzerine gelince ve userform üzerinde çıkması için düzenleyebilir miyiz?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst