Create Drop Down List to Display Shapes in Excel @Exceltrainingvideos

Uploaded February 2022 | Updated September 2026, 1 week ago

How to create drop down list using data validation to display shapes in Excel with a macro. More details available here: exceltrainingvideos.com/create-drop-down-list-to-display-shapes-in-excel
Here's the complete macro code:
Sub CreateDropDownListWithShapes()

' CreateDropDownListWithSDhapes Macro
' How To Create Drop Down List With Shapes In Excel

DeletePicture

Range("F2").Clear
Range("F2").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$2:$A$4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("F2") = "Circle"
ActiveSheet.Shapes.Range(Array("Oval 9")).Select
Selection.Copy
Range("G2").Select
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.IncrementLeft 8.25
Selection.ShapeRange.IncrementTop 9.75
Selection.Formula = "=MyShapes"
Selection.ShapeRange.ScaleWidth 1.208488429, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.208488429, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop -7.5
Range("F2").Select

End Sub

Sub DeletePicture()
Dim myObj
Dim Pictur
Set myObj = ActiveSheet.DrawingObjects
For Each Pictur In myObj
If Left(Pictur.Name, 6) = "Pictur" Then
Pictur.Select
Pictur.Delete
End If
Next
End Sub

Create Drop Down List to Display Shapes in Excel

$Convert PDF to Excel How to convert PDF files to Excel using sendkeys and microsoft word with VBA. Heres the complete VBA code: Option Explicit Sub CopyPDFTextToExcel() Dim varRetVal As Variant, PathToPDF As String, strCommand As String Sheet1.Cells.ClearContents Sheet1.Range(A1).Activate PathToPDF = C:UserstakyarDesktoptest1.pdf PathToPDF = C:exceltrainingvideosAboutWindowsAPIs.pdf strCommand = C:Program Files (x86)AdobeAcrobat Reader DCReaderAcroRd32.exe & PathToPDF Use Shell Function to open Adobe Acrobat Reader varRetVal = Shell(strCommand, 1) wait Application.Wait Now + TimeValue(00:00:05) First select all data of PDF file, next copy to clipboard SendKeys ^a select all data SendKeys ^c copy data Wait Application.Wait Now + TimeValue(00:00:05) Close Acrobat Reader or PDF file SendKeys %{F4} Wait Application.Wait Now + TimeValue(00:00:02) Paste to added worksheet (PDFText) Windows(pdf-to-excel-using-send-keys.xlsm).Activate ActiveSheet.Paste End Sub Option Explicit Function ClearClipboard() Early binding will requires a Reference to Microsoft Forms 2.0 Object Library Dim oData As Object New MSForms.DataObject Set oData = CreateObject(New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}) oData.SetText Text:=Empty oData.PutInClipboard Set oData = Nothing End Function Sub PDF_To_Excel() Dim PathToPDFFiles As String Dim PathToExcelFiles As String PathToPDFFiles = C:exceltrainingvideosMyPDFs PathToExcelFiles = C:exceltrainingvideosPDFToExcel Dim fso As New FileSystemObject Dim myFolder As Folder Dim myFile As File Set myFolder = fso.GetFolder(PathToPDFFiles) Dim WordApp As Object Dim WordDoc As Object Dim WordRange As Object Application.DisplayAlerts = False Application.ScreenUpdating = False Set WordApp = CreateObject(word.application) WordApp.Visible = True Dim nwb As Workbook Dim nsh As Worksheet For Each myFile In myFolder.Files Set WordDoc = WordApp.documents.Open(myFile.Path, False, Format:=PDF Files) Set WordRange = WordDoc.Paragraphs(1).Range WordRange.WholeStory Set nwb = Workbooks.Add Set nsh = nwb.Sheets(1) WordRange.Copy nsh.Paste nwb.SaveAs (PathToExcelFiles & Replace(myFile.Name, .pdf, .xlsx)) Application.CutCopyMode = False Call ClearClipboard WordDoc.Close True nwb.Close True Next WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox Conversion complete! End Sub All details also available at this web-link: https://www.exceltrainingvideos.com/convert-pdf-to-excel-using-vba/$

Copy Data Using Advanced Filter with VBA

Create Multiple Copies of Master Sheet Automatically

A Super Simple Inventory Automation System

Power BI Desktop Data Analysis Visualizations

How to Open Most Recent File from Specific Folder

Dump Web Page Data into Worksheet | 2021