A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3469

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3469

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3469

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3469

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3469

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Notice

Message: Undefined offset: 0

Filename: geshi/geshi.php

Line Number: 3577

A PHP Error was encountered

Severity: Warning

Message: Cannot modify header information - headers already sent by (output started at /www/wwwroot/pastebin.pl/system/core/Exceptions.php:185)

Filename: view/download.php

Line Number: 2

A PHP Error was encountered

Severity: Warning

Message: Cannot modify header information - headers already sent by (output started at /www/wwwroot/pastebin.pl/system/core/Exceptions.php:185)

Filename: view/download.php

Line Number: 3

Sub URLPictureInsert() 'Adapted/improved from ExtendOffice's version: 'https://www.extendoffice.com/documents/excel/4212-excel-insert-image-from-url.html Dim Pshp As Shape Dim rngX As Range Dim rngSelection As Range Dim colX As Long Dim filenam As String Set rngSelection = Selection.SpecialCells(xlCellTypeVisible) On Error Resume Next Application.ScreenUpdating = False For Each rngX In rngSelection filenam = rngX ActiveSheet.Pictures.Insert(filenam).Select Set Pshp = Selection.ShapeRange.Item(1) If Pshp Is Nothing Then GoTo lab 'colX = rngX.Column + 1 'Set rngX = Cells(rngX.Row, colX) With Pshp .LockAspectRatio = msoFalse If .Width > rngX.Width Then .Width = rngX.Width ' * 2 / 3 ' scaling optional/removed If .Height > rngX.Height Then .Height = rngX.Height ' * 2 / 3 'scaling optional/removed .Top = rngX.Top + (rngX.Height - .Height) / 2 .Left = rngX.Left + (rngX.Width - .Width) / 2 End With lab: Set Pshp = Nothing Next rngX rngSelection.Select Application.ScreenUpdating = True End Sub