Powerpoint 2016 텍스트 투명도

VBA를 통해 도형의 투명도를 설정해야합니다. 실제로 전체 도형의 투명도를 설정해야하지만 그대로 붙어있는 텍스트입니다.Powerpoint 2016 텍스트 투명도

난 그냥 투명 속성을 찾기 위해 개체 모델을 탐색 할 수없는 것

구글은 https://www.mrexcel.com/forum/excel-questions/510589-transparent-text-shapes-textbox-1-a.html

에서 나에게

.TextFrame.TextRange.Characters.Font.Fill.Transparency

을 부여하고있다 그러나 그것은 .Fill에 실패

Function SetTransparency(Value As Single) 
On Error GoTo AbortNameShape 

If ActiveWindow.Selection.ShapeRange.Count = 0 Then 
    MsgBox "No Shapes Selected" 
    Exit Function 
End If 

With ActiveWindow.Selection.ShapeRange 
    .Fill.Transparency = Value 
    .Line.Transparency = Value 
    .TextFrame.TextRange. **HELP** .Transparency = Value 
    End With 
AbortNameShape: 
MsgBox Err.Description 

End Function

Font 개체의 속성이 없습니다. 나는 MS가 대답이 주어진 이후로 통과 한 10 년 동안 객체 모델을 변경했다고 가정하고 있지만, 나는 현재의 접근 방법을 고집하고있다.

감사

출처

2017-09-20 James Travers

는 현재 선택의 모든 모양을 반복하려면

With ActiveWindow.Selection.ShapeRange(1) 
    With .TextFrame2.TextRange.Font.Fill 
     .Transparency = 0.5 
    End With 
End With

, 당신은 각을 테스트 할 수 있습니다 (현재 선택의 단지 첫번째 멤버)이 시도 텍스트로 작업하기 전에 .HasTextFrame 및 .TextFrame.HasText가 true인지 확인하십시오.

출처

2017-09-20 15:34:55

감사합니다. Font.Fill이 TextFrame2의 하위 항목으로 작동하지만 TextFrame의 하위 항목으로 작동하지 않는 이유를 알고 계십니까? 이 정보는 MS로부터 전혀 명확하지 않았습니다! –

이전 버전의 PowerPoint에서는 Font.Fill (Font.Color 만)을 지정할 수 없었습니다. MS가 새로운 텍스트/글꼴 효과를 추가 할 때 새로운 효과에 대한 액세스를 제공하는 TextFrame2 객체를 제공했지만 호환성을 위해 이전 TextFrame은 유지했습니다. 그리고 당신 말이 맞습니다 : 선명도는 MS의 문서의 장점이 아닙니다. –

Powerpoint 2016 텍스트 투명도

답변

관련 문제