If Len(idMSO) > 0 And Not fso.FileExists(fso.BuildPath(ThisWorkbook.Path, idMSO & ".BMP")) ThenĬall stdole.SavePicture(img, fso.BuildPath(ThisWorkbook.Path, idMSO & ".BMP"))Īfter running it, I get exactly what i wanted: all the ImageMso icons in the specified size (32x32 pixels in this case). We are guided by a simple promise: to prepare people to lead extraordinary lives.We are Chicagos Jesuit. It doesn't matter if you need Excel templates for budgeting the next fiscal year, tracking your business inventory, planning out meals, or creating a fantasy football draft sheet, there are plenty of Microsoft Excel templates for you. We are Chicagos Jesuit Catholic University. Public Function Save_ImageMSO_A() As Longĭim fso As New Scripting.FileSystemObjectĭim cbs As Office.CommandBars: Set cbs = Application.CommandBarsĭim ws As Excel.Worksheet, lso As Excel.ListObject, lsrow As Excel.ListRowĭim idMSO As String: idMSO = (1, 1).Value Microsoft Excel is one of the most versatile and useful programs in the Office suite.
0 kommentar(er)
