Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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.
Dim myshp As Shape Dim showingslide As Integer showingslide = ActivePresentation.Windows(1).View.Slide.SlideIndex Set myshp = ActivePresentation.Slides(showingslide).Shapes.AddShape(msoShapeRectangle, 10, 10, 10, 10) With myshp .Fill.ForeColor.RGB = RGB(102, 0, 102) .Line.Visible = msoFalse .TextFrame.AutoSize = ppAutoSizeNone .TextFrame.TextRange.Font.Size = 18 .TextFrame.VerticalAnchor = msoAnchorMiddle .TextFrame.TextRange.Font.Name = "Verdana" .TextFrame.TextRange.Font.Italic = msoFalse .TextFrame.TextRange.Font.Bold = msoFalse .TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255) .SetShapesDefaultProperties End With myshp.Delete
Dim myshp As Shape Dim showingslide As Integer showingslide = ActivePresentation.Windows(1).View.Slide.SlideIndex Set myshp = ActivePresentation.Slides(showingslide).Shapes.AddShape(msoShapeLineInverse, 50, 50, 50, 50) With myshp .Line.Visible = msoTrue .Line.Weight = 1.75 .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.EndArrowheadStyle = msoArrowheadTriangle .SetShapesDefaultProperties End With myshp.Delete
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.