CreateArtisticText

Hello, people,
I have this problem:

'When
Dim TXT1 As Text

'Dim TXT1 As Text 'set TXT1 return Type Mismatch
'Dim TXT1 As TextRange 'set TXT1 return Type Mismatch
'To avoid error disable obe dims above

'Code below return error Type mismatch
Set TXT1 = ActiveLayer.CreateArtisticText(1, 1, "BhBp", cdrEnglishUS, cdrCharSetEastEurope, "Tahoma", 20, cdrUndefined, cdrFalse, cdrNoFontLine, cdrLeftAlignment)

'My question is:
Dim TXT1 As ???????

'that code below not return error Type mismatch
Set TXT1 = ActiveLayer.CreateArtisticText(1, 1, "BhBp", cdrEnglishUS, cdrCharSetEastEurope, "Tahoma", 20, cdrUndefined, cdrFalse, cdrNoFontLine, cdrLeftAlignment)

Thanks!

  • Excuse me, I have answered, but now I give answer

    Dim TXT1 As Shape 'RETURN NO ERROR
    'Dim TXT1 As Text 'set TXT1 return Type Mismatch
    'Dim TXT1 As TextRange 'set TXT1 return Type Mismatch
    'To avoid error disable obe dims above
    'MsgBox Date
    '
    Set TXT1 = ActiveLayer.CreateArtisticText(1, 1, "BhBp", cdrEnglishUS, cdrCharSetEastEurope, "Tahoma", 20, cdrUndefined, cdrFalse, cdrNoFontLine, cdrLeftAlignment)
    MsgBox TXT1.Type 'RETURN SHAPE TYPE 6 FOR TEXT

    Greetings!