DesignerTranslation

Factory

wksh #

Translation worksheet

Signature:

Public Property Get Wksh() As Worksheet

Returns: Worksheet. The backing translation worksheet.

wksh-set #

Assign the translation worksheet

Signature:

Public Property Set Wksh(ByVal sh As Worksheet)

Parameters:

• sh: Worksheet. The worksheet to store.

Translation Objects

designer-language #

Current designer language code

Signature:

Private Property Get DesignerLanguage() As String

Returns the cached language code if available, otherwise reads from the worksheet-level HiddenName. Returns an empty string when no language code is stored.

Returns: String. The current language code, or vbNullString when not set.

Translation Application

translate-shapes #

Apply shape translations on the target worksheet

Signature:

Private Sub TranslateShapes(ByVal mainsh As Worksheet)

Iterates over all shapes in the worksheet and replaces text content for shapes whose names appear in the cached shape names list. Preserves the original font name on each shape.

Parameters:

• mainsh: Worksheet. The worksheet containing shapes to translate.

translate-ranges #

Apply named range translations on the target worksheet

Signature:

Private Sub TranslateRanges(ByVal mainsh As Worksheet)

Iterates over the cached range names and updates each matching named range on the worksheet with its translated value.

Parameters:

• mainsh: Worksheet. The worksheet containing named ranges to translate.

translate-dropdowns #

Apply dropdown validation translations on the target worksheet

Signature:

Private Sub TranslateDropdowns(ByVal mainsh As Worksheet)

Iterates over the cached dropdown names, deletes existing validation on each matching range, and creates a new list validation with the translated formula. Clears any existing cell content after applying the validation.

Parameters:

• mainsh: Worksheet. The worksheet containing dropdowns to translate.

Language Code Management

extract-lang-code #

Extract the language code from a language string

Signature:

Private Function ExtractLangCode(ByVal language As String) As String

Parses a language string in "CODE - Label" format (e.g. "FRA - Francais") and returns the code portion. If no separator is found, returns the trimmed input as-is.

Parameters:

• language: String. The language string to parse.

Returns: String. The extracted language code.

update-language-code #

Persist the language code to the worksheet-level HiddenName

Signature:

Private Sub UpdateLanguageCode(ByVal langCode As String)

Writes the language code to the TAG_DES_LANG HiddenName on the translation worksheet. Creates the name if it does not exist yet. Does not update the in-memory langCode field; EnsureCaches owns that so the cache-invalidation check remains correct.

Parameters:

• langCode: String. The language code to persist.

wksh-names #

Cached HiddenNames accessor for the translation worksheet

Signature:

Private Property Get WkshNames() As IHiddenNames

Lazily creates and returns an IHiddenNames instance scoped to the translation worksheet.

Returns: IHiddenNames. The HiddenNames manager for the translation worksheet.

Cache Management

ensure-caches #

Build or refresh translation caches for the given language code

Signature:

Private Sub EnsureCaches(ByVal langCode As String)

When the caches are not yet built or the language code has changed, creates four TranslationObject instances and reads three name lists from the translation ListObjects. Skips rebuilding when the caches are already populated for the same language code.

Parameters:

• langCode: String. The language code to cache translations for.

Validation

check-requirements #

Validate that the worksheet has all required ListObjects

Signature:

Private Sub CheckRequirements(ByVal sh As Worksheet)

Checks that the supplied worksheet is not Nothing, then verifies the presence of four required ListObjects (T_tradShape, T_tradRange, T_tradMsg, T_tradDrop). Raises an error when any requirement is missing.

Parameters:

• sh: Worksheet. The worksheet to validate.

Error Handling

throw-error #

Raise a ProjectError-based exception

Signature:

Private Sub ThrowError(ByVal errNumber As Long, ByVal message As String)

Raises a VBA error using the supplied ProjectError code and message.

Parameters:

• errNumber: Long. The ProjectError error code.
• message: String. Human-readable description of the failure.

lo-exists #

Verify that all listed ListObjects exist on a worksheet

Signature:

Private Sub LoExists(sh As Worksheet, ByVal loNames As BetterArray)

Iterates over the supplied BetterArray of table names and checks that each ListObject can be found on the given worksheet. Raises an error for the first missing table encountered.

Parameters:

• sh: Worksheet. The worksheet to check.
• loNames: BetterArray. List of ListObject names to verify.

Interface Implementation

IDesignerTranslation_TransObject #

Signature:

Private Property Get IDesignerTranslation_TransObject(Optional ByVal trans As Byte = DesignerTranslationOfMessages) As ITranslationObject

Delegated members satisfying the IDesignerTranslation contract. See the corresponding members above for full documentation.

• DesignerEntry.cls
• DesignerTranslation.cls
• IDesignerEntry.cls
• IDesignerTranslation.cls
• ILinelistSpecs.cls
• LinelistSpecs.cls
• EventsDesignerCore.bas
• DesignerTranslationStub.cls
• LinelistSpecsDesignerTranslationStub.cls
• LinelistSpecsWorkbookStub.cls
• LLVarContextSpecsStub.cls
• TableSpecsLinelistStub.cls