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 mismatchSet 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 mismatchSet TXT1 = ActiveLayer.CreateArtisticText(1, 1, "BhBp", cdrEnglishUS, cdrCharSetEastEurope, "Tahoma", 20, cdrUndefined, cdrFalse, cdrNoFontLine, cdrLeftAlignment)
Thanks!
Excuse me, I have answered, but now I give answerDim 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 TEXTGreetings!