PPT.Shadow in MS PowerPoint 2010 to View Properties of ShadowFormat in VB.NET
In this article I am going to explain about how to View Properties of ShadowFormat in a Microsoft PowerPoint 2010 presentation.
Introduction
In this article I am going to explain about how to View Properties of ShadowFormat in a Microsoft PowerPoint 2010 presentation. For this we use PPT.Shadow in Microsoft PowerPoint 2010.
Microsoft Office 2010 offer some powerful tools, using this tools you can create application. Using Microsoft Visual Basic for Applications (VBA) you can create your own application according to your need. These application can performer some specific task.
For creating application we can use
- VBA host of Excel 2010
- VBA host of PowerPoint 2010
- VBA host of Word 2010
NOTE : OneNote 2010 is not a VBA host.
Code that we use in this application are given below
Sub ShadowFormatDemo()
' Work with new Shadow Format features.
' Create a blank slide.
Dim sld As Slide
sld = ActivePresentation.Slides.Add(2, ppLayoutBlank)
' Add a shape to the new slide.
Dim shp As Shape
shp = sld.Shapes.AddShape(msoShapeGear9, 100, 100, 200, 200)
sld.Select()
With shp.Shadow
' Set values to demonstrate blur:
.Size = 120
.ForeColor.ObjectThemeColor = msoThemeColorAccent6
.Transparency = 0.8
.OffsetX = 20
.OffsetY = 40
' Work with the Blur property, which indicates the
' amount of blur in the shadow, measured in points:
.Blur = 1
.Blur = 5
.Blur = 10
' Now try varying the Size property, which measures the
' size as a percentage of the size of the shape, times 100:
.Size = 100
.Size = 120
.Size = 140
.Size = 160
.Size = 180
End With
shp.Shadow.RotateWithShape = msoTrue
shp.Rotation = 30
shp.Rotation = 60
shp.Rotation = 90
shp.Rotation = 120
shp.Rotation = 150
shp.Rotation = 180
shp.Rotation = 210
shp.Rotation = 240
shp.Rotation = 270
shp.Rotation = 300
shp.Rotation = 330
shp.Shadow.RotateWithShape = msoFalse
shp.Rotation = 30
shp.Rotation = 60
shp.Rotation = 90
shp.Rotation = 120
shp.Rotation = 150
shp.Rotation = 180
shp.Rotation = 210
shp.Rotation = 240
shp.Rotation = 270
shp.Rotation = 300
shp.Rotation = 330
End Sub
Steps for creating Application
Step 1 : Start Microsoft PowerPoint 2010 :
Step 2 : Using Alt + F11 Key Start Visual Basic for Applications (VBA) Window :
Step 3 : Select on VBAProject(Presentation 1) :
Step 4 : Right Click On VBAProject(Presentation 1) ==> Goto Insert==> Goto Module & click on Module:
Step 5 : Write Code in Visual Basic for Applications (VBA) Window :
Step 6 : Run Application using F8 :
Step 7 : Macros window will open, Select Macros name and click on Run Button :
Step 8 : Output of Application :
