Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > microsoft.public.excel.programming > #109396

Re: VBA to delete link to inserted image

From Claus Busch <claus_busch@t-online.de>
Newsgroups microsoft.public.excel.programming
Subject Re: VBA to delete link to inserted image
Date 2016-10-10 10:43 +0200
Organization A noiseless patient Spider
Message-ID <ntfkbu$f31$1@dont-email.me> (permalink)
References <b698270c-dd4b-4875-9486-56b27ba629a8@googlegroups.com>

Show all headers | View raw


H Steve,

Am Mon, 10 Oct 2016 01:28:09 -0700 (PDT) schrieb Steve:

> I have a worksheet which contains a few hundred pictures which have been inserted with "Link to file." I want to keep the pictures but NOT have them linked. So potentially have vba that copies each picture, then pastes it without the link . . .  but I'm sure there's a better way.

try:

Sub Test()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
	'Modify the shape name
    If Left(shp.Name, 7) = "Picture" Then
        shp.Hyperlink.Delete
    End If
Next
End Sub


Regards
Claus B.
-- 
Windows10
Office 2016

Back to microsoft.public.excel.programming | Previous | NextPrevious in thread | Next in thread | Find similar | Unroll thread


Thread

VBA to delete link to inserted image Steve <Steven@pctamers.eu> - 2016-10-10 01:28 -0700
  Re: VBA to delete link to inserted image Claus Busch <claus_busch@t-online.de> - 2016-10-10 10:43 +0200
  Re: VBA to delete link to inserted image isabelle <i@v.invalid> - 2016-10-10 04:49 -0400
    Re: VBA to delete link to inserted image Steve <Steven@pctamers.eu> - 2016-10-10 02:12 -0700
    Re: VBA to delete link to inserted image Steven@pctamers.eu - 2016-10-10 02:19 -0700
  Re: VBA to delete link to inserted image "Peter T" <askformy@gmail.com> - 2016-10-10 11:55 +0100
    Re: VBA to delete link to inserted image Steve <Steven@pctamers.eu> - 2016-10-10 12:57 -0700

csiph-web