Dator > hur man ändra storlek på flera liknande figurer i PowerPoint med VBA-makro

  • hur man ändra storlek på flera liknande figurer i PowerPoint med VBA-makro


  • Låt oss säga att du har flera listor kopiera-klistrat från Excel till PowerPoint över flera bilder . Det skulle vara tidskrävande att ändra storlek på varje diagram en efter en . Använda makro visas i den här artikeln , kan detta ske på bråkdelen av en sekund . Detta kan också användas för andra PowerPoint former som Textruta , Bild , figur mm (Denna artikel förutsätter att läsaren har grundläggande förståelse för VBA -makron )

    Du behöver :
    Microsoft PowerPoint 2003 eller 2007
    <. /h4 >
    1 .
    Öppna PowerPoint -fil som du vill ändra storlek på flera objekt av samma form typ . .
    2
    Öppna VBA- editorn ( Verktyg-> Makro-> Visual Basic Editor ) . eller " Alt + F11 "
    3

    Skapa en modul under " VBA-projekt (filnamn ) "
    4
    Klistra in följande kod : .

    Sub ResizeShapeSize ( )
    Dim s som Skjut
    Dim shp som form

    For Each s I ActivePresentation. Slides
    For Each shp I s. Shapes
    Om shp. Type=msoLinkedOLEObject Då
    Med SHP
    . LockAspectRatio=msoFalse
    . Höjd=255
    . Bredd=400
    End With
    End If
    Nästa shp
    Nästa s

    End Sub

    tips och varningar


  • Koden är att ändra storleken på alla sjökort kopiera -klistrat från Excel som ett länkat objekt ( msoLinkedOLEObject ) , vilket är samma som det konstanta värde 10
  • Konstant värde kan användas i stället för namn, kan exempelvis msoLinkedOLEObject ersättas med ett värde på 10
  • En fullständig lista över Microsofts konstanter hänvisar till http://msdn. microsoft. com/en-us/library/aa432678 . aspx

Previous:Vilka är fördelarna med Java uppgradera ? Next:hur man använder , hitta och installera bookmarklets





Relaterade artiklar


  • hur du ställer in ljud på en HD ati radeon
  • HP a1646x specifikationer
  • hur man kan ändra teckensnitt för att terminalen på en Eee PC
  • CANON MULTIPASS F60 specifikationer
  • hur reparera en skadad TIB-fil
  • hur man minskar fläktljudet på en Compaq Evo n1020
  • HP Notebook G50-112 nr specs
  • HP d530c specifikationer
  • hur man återvinna en Kodak EasyShare patron
  • vad är en semperon processor?