Working with shapes
Download as PPTX, PDF1 like604 views
This document discusses working with shapes in VBA-Excel. It covers topics like: 1. The Shapes collection which contains all shapes on a worksheet. Properties like Count and Item can be used to loop through shapes. 2. The ShapeRange collection which contains a selected range of shapes. Properties like Align can be applied to the entire ShapeRange. 3. Individual Shape objects which have properties like Type, Nodes, and methods like SetShapesDefaultProperties that can be tested and applied.
![Objective
.Name.
Sets a String Value
.representing name of
object
LINE /LINE FORMAT
Ajustes
Shape Range
Object
Shape Determinations
< [[PROPERTIES] ]
hitherto](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-4-320.jpg)
![Objective
OLE
SHAPE RANGE CK.
ie. Dwgs +> .jpgs
.gifs
PICTURE FORMAT
< [[PROPERTIES] ]
hitherto](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-5-320.jpg)
![Objective
OLE
SHAPE RANGE CK.
ie. Dwgs +> .jpgs
.gifs
PICTURE FORMAT
Ajustes
Shape Range
Object
< [[PROPERTIES] ]
hitherto
Shape Style
from
MSOShapeStyleIndex
Loop Shapes
verify
Lock Aspect Ratio
Unless
applying
adjustable
Shape
scenario
ShapeTypeMSOShapeType](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-6-320.jpg)
![Objective
Alternative Text
{for Shapes}
| Shape Range |
WEBPAGE
Background Style
< [[PROPERTIES] ]
hitherto
“Build Free From”
Add Notes
Common to Shape
E n d W i t h
Collection of Shape Objects
{Shapes Object Members}
W ith FreeFormBuilder
d e c y D o c u m e n t . S h a p e s . B F F ( m s o E d i t i n g C o r n e r
3 6 0 , 2 0 0 )
Ie.
.AddNodes msoSegmentCurve,
msoEditingCorner,_380,230,400,250 etc.
.ConvertToShape](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-7-320.jpg)
![Objective
Align: aligns shapes in a specified range.
METHODS
Regroup – Shapes
become Shape Object
[group has [Z-order]
.Item returns single object
from a collection
Increment | Rotation
Increment | Left
| Top
Selec ts the objec t
s e t S h a p e s D e f f a u l t P r o p e r t i e s
Apply |{ }| [Pick Up] Method.
Formatting Copy-paste to shapes
Scale height
Scale Width
Distribute Range Shapes](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-8-320.jpg)
![Objective
“ . “ Title. Text = “___” & vbcr & “___” &_
Iif ( Range( “units” ) = “___”, “___”, “___”, “___” )
ActiveChart.Deselect.
‘’ACTIVE
[ Active Sheet.ChartObjects(“ChartName”).Activate ]
Shapes are not confined by Excel Versions
previous to ¿’07 to ‘010
ThisWorkbook.Path.
&” ___.g.b ” etc.
Created an image 1](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-15-320.jpg)
![Objective
[ relative position in an array. (Value1, Value2, Value3) ]
Vs. Lookup for position vs. Range item eg.
MATCH
Worksheet.Match(Arg 1, Arg 2, Arg 3)
eg.
Order
1,2,3,example
Arg 1 Lookup_Value
Arg 2 Row_num
Arg 3 Match_type
Using number or text etc. or cell reference.
Lookup_array: contiguous range of cells. Containing
possible lookup values.
Lookup_array : array or reference.
Match_type -1, 0, or 1 {matching ARG 1} how (min ≥) = (≤ max)
A B
8
9
14 16
20 40
<<((paraphrase))>> Match A8 -> A8 vs. Lookup A8 ->14](https://image.slidesharecdn.com/workingwithshapes-150522214555-lva1-app6892/85/Working-with-shapes-18-320.jpg)
Working with shapes
- 2. Variant Vertices Group Items HEIGHT WIDTH 1 2 Z-Order Position Item Array of coordinate points R Add Curve Add Polyline ¿Vs. Nodes Shape Nodes collection
- 3. Variant Vertices Group Items HEIGHT WIDTH H W 1 2 Z-Order Position Item Array of coordinate points R Add Curve Add Polyline ¿Vs. Nodes Shape Nodes collection Points Values A B C Objective
- 4. Objective .Name. Sets a String Value .representing name of object LINE /LINE FORMAT Ajustes Shape Range Object Shape Determinations < [[PROPERTIES] ] hitherto
- 5. Objective OLE SHAPE RANGE CK. ie. Dwgs +> .jpgs .gifs PICTURE FORMAT < [[PROPERTIES] ] hitherto
- 6. Objective OLE SHAPE RANGE CK. ie. Dwgs +> .jpgs .gifs PICTURE FORMAT Ajustes Shape Range Object < [[PROPERTIES] ] hitherto Shape Style from MSOShapeStyleIndex Loop Shapes verify Lock Aspect Ratio Unless applying adjustable Shape scenario ShapeTypeMSOShapeType
- 7. Objective Alternative Text {for Shapes} | Shape Range | WEBPAGE Background Style < [[PROPERTIES] ] hitherto “Build Free From” Add Notes Common to Shape E n d W i t h Collection of Shape Objects {Shapes Object Members} W ith FreeFormBuilder d e c y D o c u m e n t . S h a p e s . B F F ( m s o E d i t i n g C o r n e r 3 6 0 , 2 0 0 ) Ie. .AddNodes msoSegmentCurve, msoEditingCorner,_380,230,400,250 etc. .ConvertToShape
- 8. Objective Align: aligns shapes in a specified range. METHODS Regroup – Shapes become Shape Object [group has [Z-order] .Item returns single object from a collection Increment | Rotation Increment | Left | Top Selec ts the objec t s e t S h a p e s D e f f a u l t P r o p e r t i e s Apply |{ }| [Pick Up] Method. Formatting Copy-paste to shapes Scale height Scale Width Distribute Range Shapes
- 9. Objective MyDocument.Shapes.item(i).Type = msoAutoShape ____ msoShapeType Enumeration SHAPES Shape Shapes .Count .Item Properties xOn Action shape xNodes xOn Action Shape xControlFormat .LockAspectRatio .Child .ParentGroup Method xSetShapes Default Properties xReroute Connections xIncrementLeft xIncrementRotation .PickUp .ScaleWidth .ScaleHeight . Shape Object Members
- 10. On Nodes.Count as MyDocument.Shapes(3).Nodes groupProperty msoEditingType REDIM H W Q: ¿ .Count is a Static Value ? A: It is a read only property of a Collection Reallocate storage space for dynamic array variables. VBA Checks through each node to verify type of “condition” and assigns “quality”. ¿Vs. Nodes Shape Nodes collection Shape Node .EditingType ‘read only.’ msoEditing /corner .SetEditing Type msoEditing Smooth ¿free form dwg?
- 11. On Nodes.Count as MyDocument.Shapes(3).Nodes groupProperty msoEditingType REDIM H W VBA Checks through each node to verify type of “condition” and assigns “quality”. ¿Vs. Nodes Shape Nodes collection msoEditing /corner .SetEditing Type msoEditing Smooth ¿free form dwg? [ On.Distribute( _ , _ ) Let myDocument = Worksheets(1) With myDocument.Shapes nomShapes = .Count If numShapes > 1 Then numAutoShapes = 0 { initialize } {ReDim autoShpArray.(1 to (.Count)numShapes)} For i = 1 to numShapes if .item(i).Type = msoAutoShape then… dynamic array
- 12. Objective Test each shape Set Method apply Property End Test End Loop 3 OBJECTS SHAPES COLLECTION: SHAPE RANGE COLLECTION: SHAPE OBJECT Loop through collection Shape Range Shapes are not confined by Excel Versions previous to ¿’07 to ‘010
- 13. Objective Test each shape Set Method apply Property End Test End Loop SHAPE RANGE COLLECTION CONTAINS ALL SHAPES ON A SHEET With ShapeRange Property ╘ return ShapeRange object containing selected shapes. Worksheets(1).Shapes.Select Set sr = selection.ShapeRange Index create a ShapeRange Object containing all shapes in a Shape collection. H W
- 14. Objective Shapes defined for the index of worksheets. So re-define worksheet See i) myDocument = worksheets(1) for Each Sh In myDocument.Shapes {actions applied to sh. property. } 2010 DEVELOPER REFERENCE “WORKING WITH SHAPES” Applying a Property Or a Method to a ShapeRange Collection <<((hypothesize))>> Exterior looping through worksheets ie. MyDocument = Workbook(“ “) For each Wksht In MyDocument.Wksht Wksht.Selection.ShapeRange
- 15. Objective “ . “ Title. Text = “___” & vbcr & “___” &_ Iif ( Range( “units” ) = “___”, “___”, “___”, “___” ) ActiveChart.Deselect. ‘’ACTIVE [ Active Sheet.ChartObjects(“ChartName”).Activate ] Shapes are not confined by Excel Versions previous to ¿’07 to ‘010 ThisWorkbook.Path. &” ___.g.b ” etc. Created an image 1
- 16. Range Evaluate changing variables {Single formula} Objective ‘’ACTIVE Autofill create list of ordered numbers. Generate in vba to paste values in column. ie. No formulas for “data tables”in first column. Ref; Susan Harkins | Tech Republic { if error function } for distributable Once data table is in place; can’t change any referencing cells. (B,C,+D in data table) Data table are a series of =TABLE() functions Data Table Enter data table labels Verify first column variable matches. Input cell amount. Input of first row from result cells. Go to “what if and …” In Data Tools group. Column input = input cell .Value .$R$C
- 17. Objective Returns Value of Table or Range INDEX Worksheet.Index(Arg 1, Arg 2, Arg 3, Arg 4) ThisWorkbook.Path. &” ___.g.b ” etc. Arg 1 Range or Array const. ref. one or more cell ranges. Arg 2 Row_num Arg 3 Column_num Arg 4 Area_num if omitted, range of, area_num is returned If row or column are omitted, column or row are returned Purpose ie Wood Tables ‘The result of the INDEX function is a reference ex.:CELL(“width”,…) ‘
- 18. Objective [ relative position in an array. (Value1, Value2, Value3) ] Vs. Lookup for position vs. Range item eg. MATCH Worksheet.Match(Arg 1, Arg 2, Arg 3) eg. Order 1,2,3,example Arg 1 Lookup_Value Arg 2 Row_num Arg 3 Match_type Using number or text etc. or cell reference. Lookup_array: contiguous range of cells. Containing possible lookup values. Lookup_array : array or reference. Match_type -1, 0, or 1 {matching ARG 1} how (min ≥) = (≤ max) A B 8 9 14 16 20 40 <<((paraphrase))>> Match A8 -> A8 vs. Lookup A8 ->14
- 19. Excel No. False Selection.ShapeRange.Align msoAlignLefts,False Methods of Shapes in Shape Range Align Distribute Group Regroup ALIGN Align expression.Align (Align.cmd,Relative To) msoAlignCmd Align Cmd Relative To “Arrange all shapes in the specified range with left edge of left most shape in the range.” Reference With{Define “Visual groups (vbgroups)”