+ Reply to Thread
Results 1 to 4 of 4

Windows Security POP UP for every URL to Image conversion

  1. #1
    Registered User
    Join Date
    02-15-2018
    Location
    INDIA
    MS-Off Ver
    2016
    Posts
    10

    Windows Security POP UP for every URL to Image conversion

    Hi,

    I am trying to convert Public URL links to actual images, the whole code is executing properly and giving result by only concern here i am facing is for every URL to image it is giving Windows security Pop UP which i have to cancel then the code is proceeding ahead. Attached.

    Is there any way to stop popup message permanently.



    Thanks,
    Naveen.
    Attached Images Attached Images

  2. #2
    Administrator 6StringJazzer's Avatar
    Join Date
    01-27-2010
    Location
    Tysons Corner, VA, USA
    MS-Off Ver
    MS365 Family 64-bit
    Posts
    24,532

    Re: Windows Security POP UP for every URL to Image conversion

    Not possible to answer without seeing your code.

  3. #3
    Registered User
    Join Date
    02-15-2018
    Location
    INDIA
    MS-Off Ver
    2016
    Posts
    10

    Re: Windows Security POP UP for every URL to Image conversion

    Hi. Code given below.



    Sub Convert()
    ' Created by Naveen Siddula - 22-Feb-2021
    ' CONVERTING IMAGE IN C COLUMN OF A CSV FILE
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.AlertBeforeOverwriting = False
    Application.ScreenUpdating = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
    xSPath = xFd.SelectedItems(1)
    Else
    Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
    Application.StatusBar = "Converting: " & xCSVFile
    Workbooks.Open Filename:=xSPath & xCSVFile
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("C:C").Select
    Selection.ColumnWidth = 129.86
    Selection.RowHeight = 30


    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long
    On Error Resume Next
    Application.AskToUpdateLinks = False
    'Application.DisplayAlerts = False
    Application.AlertBeforeOverwriting = False
    Application.ScreenUpdating = False
    Set Rng = ActiveSheet.Range("C2:C10000")
    For Each cell In Rng
    filenam = cell
    ActiveSheet.Pictures.Insert(filenam).Select

    Set Pshp = Selection.ShapeRange.Item(1)
    If Pshp Is Nothing Then GoTo lab
    xCol = cell.Column
    Set xRg = Cells(cell.Row, xCol)
    With Pshp
    .LockAspectRatio = msoFalse
    .Width = 60
    .Height = 30
    .Top = xRg.Top + (xRg.Height - .Height) / 2
    .Left = xRg.Left + (xRg.Width - .Width) / 2
    Application.DisplayAlerts = True
    End With

    lab:
    Set Pshp = Nothing
    Range("A2").Select

    Next

    'ALIGINING IMAGE AND MOVING LEFT

    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    ActiveSheet.Shapes.SelectAll
    Selection.Placement = xlMoveAndSize
    Application.CommandBars("Format Object").Visible = False
    Columns("C:C").Select
    Selection.ClearContents
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    ActiveSheet.Shapes.SelectAll
    Selection.ShapeRange.IncrementLeft -308.25
    Selection.ShapeRange.IncrementTop -0.75
    Selection.ColumnWidth = 15
    Columns("C:C").ColumnWidth = 13
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Image"
    Range("C2").Select
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    ActiveSheet.Shapes.SelectAll
    Selection.ShapeRange.IncrementTop 0.75
    Selection.ShapeRange.IncrementTop 0.75
    Selection.ShapeRange.IncrementTop 0.75


    ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
    ActiveWorkbook.Close
    Windows(xWsheet).Activate
    xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
    Application.AlertBeforeOverwriting = False
    Application.ScreenUpdating = False

    MsgBox "COMPLETED"
    End Sub
    Please Login or Register  to view this content.
    Last edited by siddnave2; 02-25-2021 at 01:41 AM.

  4. #4
    Administrator 6StringJazzer's Avatar
    Join Date
    01-27-2010
    Location
    Tysons Corner, VA, USA
    MS-Off Ver
    MS365 Family 64-bit
    Posts
    24,532

    Re: Windows Security POP UP for every URL to Image conversion

    Administrative Note:

    Welcome to the forum.

    We would very much like to help you with your query, however you need to include code tags around your code.

    Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

    Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

    (Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)
    Jeff
    | | |會 |會 |會 |會 | |:| | |會 |會
    Read the rules
    Use code tags to [code]enclose your code![/code]

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Windows security Warning
    By xccel in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 02-07-2020, 09:29 AM
  2. Windows Security Warning when trying to run Macro
    By kingsdime29x in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 10-20-2016, 12:00 PM
  3. Excel VBA to dismiss Windows Security
    By Brawnystaff in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 02-09-2015, 10:02 AM
  4. Internet Windows Security POPUP
    By Sniper in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 05-15-2014, 08:09 PM
  5. How to login to Windows Security dialog box
    By kurtmcgill in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 01-14-2014, 04:16 AM
  6. Replies: 4
    Last Post: 06-20-2013, 09:30 AM
  7. sendkeys windows security pop-up window
    By ljoseph in forum Excel General
    Replies: 0
    Last Post: 11-17-2011, 05:35 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1