Help with variable

[HebertsYES]

How can I make this bit of code work?

Dim Top1 As Range
Dim Top2 As Range
Set Top2 = ActiveSheet.Shapes.TextBoxTop2.Range
Set Top1 = ActiveSheet.Shapes.Range("TextBoxTop1")

With Top1
.TextFrame.Characters.Text = Verse
End With
With Top2
.TextFrame.Characters.Text = Ref
End With

Thanks
Here is all of the code
Private Sub ButtonClose_Click()
UFCreateCards.Hide
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Private Sub ButtonPrint_Click()
Dim Top1 As Range
Dim Top2 As Range
Set Top2 = ActiveSheet.Shapes.Range("TextBoxTop2")
Set Top1 = ActiveSheet.Shapes.Range("TextBoxTop1")


Verse = UFCreateCards.TextVerse.Value
Ref = UFCreateCards.TextRef.Value


'Clear all Text boxes
'Sheet1.Shapes.Range("TextBoxTop1").TextFrame.Characters.Delete
'Sheet1.Shapes.Range("TextBoxTop2").TextFrame.Characters.Delete

' Set Sheets textbox values to Sheets Textbox values
With Top1
.TextFrame.Characters.Text = Verse
End With
With Top2
.TextFrame.Characters.Text = Ref
End With


'Changes font Size


Sheet1.Shapes.Range(Array("TextBoxTop2")).Select

With Selection.ShapeRange.TextFrame2.TextRange
.Font.Size = 20
.ParagraphFormat.Alignment = _
msoAlignCenter
End With
Sheet1.Shapes.Range(Array("TextBoxTop1")).Select


Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 16
'Print
'Application.ActivePrinter = "HP Photosmart C4600 series"

ActiveWindow.SelectedSheets.PrintOut Copies:=TextPrintNumber.Value, Collate:=True, _
IgnorePrintAreas:=False

ActiveWorkbook.Save











End Sub

 

[AlphaFrog]

Try something like this...

[COLOR=darkblue]Sub[/COLOR] ButtonPrint_Click()
    
    [COLOR=green]' Set Sheets textbox values to Sheets Textbox values[/COLOR]
    [COLOR=darkblue]With[/COLOR] ActiveSheet.Shapes("TextBoxTop1")
        .TextFrame.Characters.Text = UFCreateCards.TextVerse.Value
        .TextFrame.Characters.Font.Size = 16
        .TextFrame.HorizontalAlignment = xlHAlignCenter
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
    [COLOR=darkblue]With[/COLOR] ActiveSheet.Shapes("TextBoxTop2")
        .TextFrame.Characters.Text = UFCreateCards.TextRef.Value
        .TextFrame.Characters.Font.Size = 20
        .TextFrame.HorizontalAlignment = xlHAlignCenter
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=TextPrintNumber.Value, Collate:=True, _
        IgnorePrintAreas:=[COLOR=darkblue]False[/COLOR]
    
    ActiveWorkbook.Save
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Please make use of CODE tags (see my signature block below). It makes reading your code in the forum much easier.

 

[HebertsYES]

Thanks! I guess my question is How can I Set this code to a variable:

 ActiveSheet.Shapes("TextBoxTop1")

 

[AlphaFrog]

Dim Top1 As Shape

Set Top1 = ActiveSheet.Shapes("TextBoxTop1")

 

[HebertsYES]

Ok great, and is there a way to set this to a variable:

.TextFrame.Characters.Text

 

[AlphaFrog]

You're welcome.

No (if I understand what you're asking). That's an object's property. The text could be written to or from a string variable, but not set as a variable.