- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
I'm trying to find the file name, used for the bump pic.
Public Sub TAppearances()
Dim partDoc As PartDocument
Set partDoc = ThisApplication.ActiveDocument
Dim Appearances As AssetsEnumerator
Set Appearances = partDoc.AppearanceAssets
Dim oAssetValCol As ColorAssetValue
Dim appearance As Asset
Dim count As Integer
count = 1
Set appearance = Appearances.Item(8)
Dim value As AssetValue
For Each value In appearance
If value.Type = kColorAssetValueObject Then
Dim texture As ColorAssetValue
Set texture = value
Dim oFileBump As FilenameAssetValue
'set oFileBump = oValue.
Debug.Print (count & " - " & value.DisplayName)
Dim textureValue As AssetValue
End If
' For Each textureValue In texture.value
' Debug.Print ("- - " & TextValue.Type)
' Next
' If value.ValueType = kAssetValueTypeColor Then
' Dim texture As TextureAssetValue
' Set texture = value
'
' Dim textureValue As AssetValue
' 'For Each textureValue In texture.value
' ' If textureValue.ValueType = kAssetValueTypeFilename Then
'
' Dim fileValue As FilenameAssetValue
' Set fileValue = textureValue
' Debug.Print appearance.Name
' Debug.Print " " & fileValue.value
' 'End If
' 'Next
' End If
count = count + 1
Next
This code still doesn't work. It's used to find the .png with try and error....
Thank for any hint to point me to the right direction.
Solved! Go to Solution.