Metin Kutusuna yazmak istediğimiz yazıyı bir hücreden çağırabilir miyiz?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Metin Kutusuna yazmak istediğimiz yazıyı, bir hücreden çağırabilir miyiz? (atayabilir miyiz?)
Metin Kutusunun saydam, dolgu, çizgi, renk ve farklı desenleri olmasını makro ile temin edebilir miyiz?
Saygılarımla

 

[Orion1]

Makro kaydet ile yapabilirsiniz sanırım.

 

[Tevfik_Kursun]

Sayın Evren Hocam,
Ben de onu düşündüm, belki pratik bir yolu vardır diyerek denemedim. Şimdi deneyeceğim.
Saygılarımla

 

[Tevfik_Kursun]

Başaramadım, metin kutusunun adı sürekli değişiyor sayın hocam
Saygılarımla

 

[Asri]

Metin kutusunu seçip, sol üstte metin kutusu 1 yada 2,3,4 olabilir.
Oradan ismini denemekutusu olarak değiştirip enter e basın.
Metin kutusunun ismi sabitlenecektir.

Aşağıdaki kod A1 ve A2 deki yazıları metin kutusuna aktarıp Metin kutusunu Metne göre boyutlandıracaktır.

"Metin Kutusunun adı sürekli değişiyor" diye yazmışsınız. Kod ile mi oluşturuyorsunuz.

Sub Makro1()
    ActiveSheet.Shapes("denemekutusu").Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Range("A1") & Chr(13) & Range("A2")
    Selection.ShapeRange(1).TextFrame2.AutoSize = msoAutoSizeShapeToFitText
    Range("F11").Select
End Sub

 

[Orion1]

Ben makro kaydet ile aşağıdaki kodları buldum.
Kendi Metin kutunuza göre uyarlayabilirsiniz.

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Range("A1").Value
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.6000000238
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0.1000000238
    End With
    'Selection.ShapeRange.AlternativeText = Range("A1").Value
End Sub

 

[Tevfik_Kursun]

Asri Hocam, Evren Hocam,
Her ikinize de ayrı ayrı teşekkür ederim. Çok makbule geçti.
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Belge ekte (açıklama dosya içinde).
AD TANIMLAMASI ile sonuç alınmıştır.
.

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
İlginize çok teşekkür ederim.
Saygılarımla