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

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

Re: Insert from paint and resize

From Claus Busch <claus_busch@t-online.de>
Newsgroups microsoft.public.excel.programming
Subject Re: Insert from paint and resize
Date 2016-02-25 19:53 +0100
Organization A noiseless patient Spider
Message-ID <nanid2$cbe$1@dont-email.me> (permalink)
References (2 earlier) <1b76584b-a382-4f91-8111-283e5578b61c@googlegroups.com> <nanc9u$jan$1@dont-email.me> <be5f58d5-40cd-4a41-b66f-c771dcfde9da@googlegroups.com> <nandop$p38$1@dont-email.me> <f4954e38-2af4-48fb-a996-e0021894f06d@googlegroups.com>

Show all headers | View raw

Hi Steve,

Am Thu, 25 Feb 2016 10:25:47 -0800 (PST) schrieb Steven@pctamers.eu:

> I see. Do you think it'll be possible with the import pictures from Paint? 

I have no experience in that.

But I have done it now with a workaround. The last inserted picture has
the highest number and is

With ActiveSheet
	Set shp = .Shapes(.Shapes.Count)
	

Try:
Sub Test()
Dim shp As Shape

On Error Resume Next
Set SigPic = ActiveSheet.OLEObjects.Add(ClassType:="Paint.Picture",
Link:=False, DisplayAsIcon:=False).Activate

With ActiveSheet
Set shp = .Shapes(.Shapes.Count)
End With

With Range("B39")
    shp.Top = .Top
    shp.Left = .Left
    shp.Width = .ColumnWidth
    shp.Height = .Height
End With
End Sub

the inserted picture has by default aspect ratio locked. Therefore the
width can not be larger than the heigth. 


Regards
Claus B.
-- 
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

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

Thread

Insert from paint and resize Steven@pctamers.eu - 2016-02-25 04:38 -0800
  Re: Insert from paint and resize Claus Busch <claus_busch@t-online.de> - 2016-02-25 14:22 +0100
    Re: Insert from paint and resize Steven@pctamers.eu - 2016-02-25 08:35 -0800
      Re: Insert from paint and resize Claus Busch <claus_busch@t-online.de> - 2016-02-25 18:09 +0100
        Re: Insert from paint and resize Steven@pctamers.eu - 2016-02-25 09:22 -0800
          Re: Insert from paint and resize Claus Busch <claus_busch@t-online.de> - 2016-02-25 18:34 +0100
            Re: Insert from paint and resize Steven@pctamers.eu - 2016-02-25 10:25 -0800
              Re: Insert from paint and resize Claus Busch <claus_busch@t-online.de> - 2016-02-25 19:53 +0100
                Re: Insert from paint and resize Steven@pctamers.eu - 2016-02-26 06:44 -0800
  Re: Insert from paint and resize Steven@pctamers.eu - 2016-02-25 11:13 -0800

csiph-web