Yardım balonunda açıklama

[Guest]

Selamlar;
Bazı excel sayfalarında bin hücreye tıklandığında excel yardımcısı yanında balon içersinde açıklama çıkmakta. Bunun nasıl oluşturulduğunu açıklayabilirmisiniz.

 

[danersin]

Sorunuz genelde Merlin, köpek veya ataç şeklinde gözüken balonlarmı?
Ben o şekilde anladım ve cevap verdim.

Bahsettiğiniz balon excel'e ait değil ofis programına aittir. Tüm ofis programları tarafından paylaşılır.

Ofis yardımcısını yardım sağlamak veya kullanıcıdan bilgi almak amacı ile programlayabiliriz.

Ofis yardımcısı 3 bileşenden oluşur.

• Kendisi (canlandırılan karakter)
  Balon
  Balonun içindekiler

Ofis yardımcısının özellikleri,

On - Etkin olup olmadığını
Visible - Görünür olup olmadığını,
Animation - Canlandırma

• msoAnimationCheckSomething '- Bir şeyi inceliyor
  msoAnimationGetTechy
  msoAnimationListensToComputer
  msoAnimationSearching
  msoAnimationThinking
  msoAnimationWorkingAtSomething
  msoAnimationWritingNotingSomething

Ã?rnek kod, aşağıdaki kodu bir modüle yapıştırıp makroyu çalıştırın. Çıkan balonlardaki her seçeneği deneyerek farklı balon şekillerini görebilirsiniz.

'KULLANICININ BAÞKA BİR YARDIM KONUSUNU VEYA BİR İÞLEMİ SEÇMESİ İÇİN
Sub YARDIIM()
Dim rspns As Integer
Set Myballoon = Assistant.NewBalloon
With Myballoon
.Heading = "bAÞLIK!"
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Animation = msoAnimationGetTechy
.Text = "Açıklamalar." & Application.Rept(Chr(13), 2) & "Ne yapmamı istersin?"
.Labels(1).Text = "1. seçeneğin - bulunduğun hücreyi boya "
.Labels(2).Text = "2. modeless balon örneği"
.Labels(3).Text = "3. seçeneğin- merlin animasyonunu çağırır"
.Labels(4).Text = "4. seçeneğin- diğer merlin mesajını çağır "
.Labels(5).Text = "5. seçeneğin- diğer çeşit balon "
rspns = .Show
End With
Select Case rspns
Case 1: ActiveCell.Interior.ColorIndex = 5
Case 2: Sakin
Case 3: Taktak
Case 4: MerlinKonus
Case 5: BaskaTip
End Select
End Sub


'SADECE ANİMASYON İÇİN
Private Sub Taktak()
        Dim oAssistant As Assistant
      
        With Application.Assistant
            .Visible = True
            .Animation = msoAnimationGetAttentionMajor
            Call beklet(3)
        End With
    End Sub

'BİR MESAJ VERMEK İÇİN
Private Sub MerlinKonus()
With Assistant
.Visible = True
With .NewBalloon
.Heading = "BURAYA BAÞLIK YAZ"
.Text = "BURAYADA YARDIM KONUSUNU"
.Show
End With
End With
End Sub

Private Sub BaskaTip()

'EXCEL YARDIMINDAKİ Ã?RNEK
With Assistant.NewBalloon
    .Heading = "Regional Sales Data"
    .Text = "Select the region(s) you want to print."
    For i = 1 To 3
        .CheckBoxes(i).Text = "Region " & i
    Next
    .Button = msoButtonSetOkCancel
    If .Show = msoBalloonButtonOK Then
        dataPrinted = 0
        For i = 1 To 3
            If .CheckBoxes(i).Checked = True Then
                ' Code to print region data.
                dataPrinted = dataPrinted + 1
                MsgBox "Region " & i & " data printed."
            End If
        Next
        If dataPrinted = 0 Then MsgBox "No data printed."
    End If
End With
End Sub
'BİR MESAJ VERMEK İÇİN
Private Sub Sakin()
With Assistant
.Visible = True
With .NewBalloon
.Mode = msoModeModeless
.Button = msoButtonSetNone
.Callback = "YARDIIM"
.Heading = "modeless denende bu işte"
.Text = "bu balon burda iken siz çalışmaya devam edebilirsiniz"
.Show
End With
End With
End Sub

'ANİMASYON İÇİN BEKLETME
Private Sub beklet(kacsaniye)
Dim a  As Single
a = Timer
Do
DoEvents
Loop While (Timer - a) < kacsaniye
End Sub