Table of contents
TOC
Recolher sumário
Expandir sumário

Método Shape.PickUp (projeto)Shape.PickUp Method (Project)

office 365 dev account|Última Atualização: 29/09/2017
|
1 Colaborador

Copia a formatação de uma forma.Copies the formatting of a shape.

SintaxeSyntax

expressão. Retiradaexpression. PickUp

expressão Uma variável que representa um objeto Shape .expression A variable that represents a Shape object.

Valor de retornoReturn value

NothingNothing

ComentáriosRemarks

Use o método Apply para aplicar a formatação copiada a outra forma.Use the Apply method to apply copied formatting to another shape.

ExemploExample

O exemplo a seguir cria duas formas cilíndrica, cores da primeira forma vermelho, copia a formatação da primeira forma e aplica à segunda forma.The following example creates two cylindrical shapes, colors the first shape red, copies the formatting of the first shape, and then applies it to the second shape.

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange

    reportName = "Apply Report"

    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 10, 30, 100, 100)
    shp1.Name = "Shape 1"
    shp1.Fill.ForeColor.RGB = &;H1010FF  ' Red color.

    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    shp2.Name = "Shape 2"               ' Blue default color.

    With theReport
        .Shapes("Shape 1").PickUp
        .Shapes("Shape 2").Apply
    End With
End Sub

Veja tambémSee also

Outros recursosOther resources

Objeto ShapeAplicar o métodoMétodo ShapeRange.PickupShape ObjectApply MethodShapeRange.Pickup Method

© 2018 Microsoft