Need to edge out the competition for your dream job? Train for certifications today.
Dim oshpR As ShapeRange
Set oshpR = .Shapes.Range(Array("Rectangle 3", "Rectangle 5"))
Open in new window
Set myDocument = ActivePresentation.Slides(1)
Set myRange = myDocument.Shapes.Range(Array("Isosceles Triangle 5", "Rectangle 4"))
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub drawhpdialogshape6(ByVal fillcolor As Integer, ByVal textcolor As Integer) ' round bubble with tail to left
Dim ffb As FreeformBuilder
Dim mycircle As Shape
Dim mypoint As Shape
Dim mymergedshape As Shape
Dim currentslide As Slide
Set currentslide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)
Set mycircle = currentslide.Shapes.AddShape(msoShapeOval, 302.068, 164.0001, 195.8048, 202.0446)
Set ffb = currentslide.Shapes.BuildFreeform(msoEditingCorner, 364.4479, 346.1004)
.AddNodes msoSegmentLine, msoEditingAuto, 310.1761, 363.815
.AddNodes msoSegmentLine, msoEditingAuto, 317.9915, 309.6834
' ShapesUnion NOT work if next line is omitted (leaving an open-sided shape)
.AddNodes msoSegmentLine, msoEditingAuto, 364.4479, 346.1004
Set mypoint = ffb.ConvertToShape
Set mymergedshape = currentslide.Shapes(currentslide.Shapes.count)
.Fill.ForeColor.ObjectThemeColor = fillcolor
.Fill.Visible = msoTrue
.Line.Visible = msoFalse
.HorizontalAnchor = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
.AutoSize = ppAutoSizeNone
.WordWrap = msoTrue
.MarginLeft = 20
.MarginRight = 20
.TextRange.font.size = 21
.TextRange.font.Name = "Georgia"
.TextRange.font.italic = msoTrue
.TextRange.font.Bold = msoFalse
.TextRange.font.color.ObjectThemeColor = textcolor
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.