Este codigo si jala con excel, convertir numero a codigo de barras,
Sub Botón1_Haga_clic_en()
Range("A2").Select
With Selection.Font
.Name = "Free 3 of 9"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("A3").Select
ActiveCell.FormulaR1C1 = "listo"
Range("A4").Select
End Sub
Aqui el cap:
Lo codifico en Vb y no corre, alguin podra ayudar
Private Sub Command1_Click()
Dim numero As String
numero = (CStr(Format(Text1.Text, 2)))
numero = Text1
Text2.Text = "(" & Name2(Text1.Text) & numero & ")"
End Sub
Public Function Name2(ByVal value As Double) As String
value = Int(value)
With Selection.Name2
Name2 = "Free 3 of 9"
Size = 24
Strikethrough = False
Superscript = False
Subscript = False
OutlineFont = False
Shadow = False
Underline = xlUnderlineStyleNone
ThemeColor = xlThemeColorLight1
TintAndShade = 0
ThemeFont = xlThemeFontNone
End With
End Function