您正在查看: 标签 类似于 下的文章

KernedPairs 属性

KernedPairs 属性

决定指定艺术字中的字符对是否紧排。可读写。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定艺术字中的字符对紧排。

示例

本示例打开 myDocument 中第三个形状(如果该形状为艺术字)的字体对字距。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.KernedPairs = msoTrue
    End If
End With

Item 属性

Item 属性

返回或设置由 Index 参数指定的调整值。对于线性调整,0.0 调整值通常对应于形状的左边缘或上边缘,1.0 调整值通常对应于形状的右边缘或下边缘。但对某些形状,调整值可以超过形状边界。对于径向调整,1.0 调整值对应于形状宽度。对于角度调整,调整值用度数指定。Item 属性仅应用于含有调整的形状。可读写。Single 类型。

expression.Item(Index)

expression 必选。该表达式返回一个 Adjustments 对象。

Index 必选。Long 类型。调整的索引号。

说明

自选图形、连接符和艺术字对象最多可有八个调整。

示例

本示例将两个十字形添加到 myDocument,然后在每个十字形上设置第一个调整(此类型自选图形的唯一调整)的值。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeCross, 10, 10, 100, 100) _
        .Adjustments.Item(1) = 0.4
    .AddShape(msoShapeCross, 150, 10, 100, 100) _
        .Adjustments.Item(1) = 0.2
End With

本示例虽然没有明确地使用 Item 属性,但与上例的结果相同。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeCross, 10, 10, 100, 100) _
        .Adjustments(1) = 0.4
    .AddShape(msoShapeCross, 150, 10, 100, 100) _
        .Adjustments(1) = 0.2
End With

Italic 属性

Italic 属性

决定字符格式是否为斜体。可读写。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 字符格式不是斜体。
msoTriStateMixed 指定的文本范围包含斜体和非斜体两种字符。
msoTriStateToggle
msoTrue 字符格式为斜体。

示例

本示例设置第一张幻灯片标题的文本,并设为蓝色、倾斜。

With Application.ActivePresentation.Slides(1) _
        .Shapes.Title.TextFrame.TextRange
    .Text = "Volcano Coffee"
    With .Font
        .Italic = msoTrue
        .Name = "palatino"
        .Color.RGB = RGB(0, 0, 255)
    End With
End With

IsNamedShow 属性

IsNamedShow 属性

决定自定义(命名的)幻灯片放映是否在指定幻灯片放映视图中显示。只读。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 自定义(命名的)幻灯片放映在指定幻灯片放映视图中显示。

示例

如果在第一个幻灯片放映窗口中运行幻灯片放映是自定义幻灯片放映,本示例将显示其名称。

With SlideShowWindows(1).View
    If .IsNamedShow Then
        MsgBox "Now showing in slide show window 1: " _
           & .SlideShowName
    End If
End With

IsFullScreen 属性

IsFullScreen 属性

返回指定幻灯片放映窗口是否占用全屏。只读。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定幻灯片放映窗口占用全屏。

示例

本示例缩小全屏的幻灯片放映窗口高度以便看到任务栏。

With Application.SlideShowWindows(1)
    If .IsFullScreen Then
        .Height = .Height - 20
    End If
End With