Multiplicação de objetos usando For...Next

[CRKry17]

O código abaixo seleciona uma imagem no Excel e a multiplica quantas vezes conforme estipulado na célula "A1".

Dim quant As String
  quant = Range("A1")
  For x = 1 To quant
  ActiveSheet.Shapes("Picture 1").Select
  Selection.ShapeRange.Duplicate.Select
  Selection.ShapeRange.IncrementLeft -50
  Selection.ShapeRange.IncrementTop -10
  Next x

:unsure: Peço ajuda na questão:

As imagens ficam multiplicadas, mas sobrepostas. Como posso criar um código, que para cada imagem multiplicada, faça um pequeno deslocamento que evite a sobreposição? Eu imaginei utilizar For...Next, mas não consegui materializar isto.

[Mendrot]

Boa tarde Amigo!

Você pode tentar criar uma várialvel public num módulo que cada vez que o código é executado ele incremente em 100 (por ex.) o valor da variável e na linha onde você desloca para a esquerda e para cima você substitui o valor por essa variável.

Espero ter ajudado

Abraço

MSN: mendrot@hotmail.com :D

[CRKry17]

Obrigado pela ajuda, ainda vou testar, mais acho que isto resolve:

oShpTop = x ' x e y incrementam a posição da imagem

oShpLeft = y

ActiveSheet.Pictures.Insert("nome_do_arquivo").Select

With Selection.ShapeRange

.Left = oShpTop

.Top = oShpLeft

End With

Editado Julho 31, 2009 por CRKry17