Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como limitar o movi...
 
Notifications
Clear all

Como limitar o movimento de figuras

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
831 Visualizações
RSS
 boukons
(@boukons)
Posts: 2
New Member
Topic starter
 

Pessoal,

Boa tarde,

Estou precisando de um código para limitar o movimento de uma figura, que eu quero que o usuário possa arrastar ao longo de um eixo horizontal para variar uma informação. Para isto, estava pensando em limitar na planilha a área que a figura pode percorrer ao usuário tentar deslocar ela. Alguém sabe como eu posso fazer isso? Alguém tem alguma sugestão?

O que eu tentei até então foi, sendo que neste caso eu somente consigo limitar as células que o usuário vai clicar ou utilizar, no entanto mesmo assim ele consegue arrastar a figura para a área que eu restringi:

Private Sub Workbook_Open()

Call teste1

End Sub

Inserir Modulo 1

Sub teste1()

Worksheets(1).ScrollArea = "d17:j18"

End Sub

 
Postado : 08/05/2012 1:39 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Precisamos de mais detalhes, que figuras são essas?

Poste um arquivo modelo COMPACTADO!!

Se for o que estou pensando não precisa de VBA.

Em Tamanho e Propriedade --> Propriedades --> Não mover ou dimensionar com células

Att

 
Postado : 08/05/2012 6:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa Noite, veja se é isto o que pretende, adaptado do código em VB, Fonte abaixo :

http://www.vbmania.com.br
COMO MOVER UMA IMAGEM PELO O MOUSE [VB / VBA]
http://www.vbmania.com.br/pages/index.p ... rID=185926

[]s

 
Postado : 08/05/2012 7:03 pm
 boukons
(@boukons)
Posts: 2
New Member
Topic starter
 

Galera,

Obrigado pelas respostas.

No entanto, o que eu preciso é limitar a area em que uma figura pode ser locomovida/direcionada/arrastada/levada em uma planilha. A intenção é definir quais os valores de acordo com a posição da imagem. Isso eu ja consigo fazer, no entanto eu quero que o usuário mexa com o mouse a a figura e só consiga colocar ela nos lugares predeterminados por mim, no caso em uma barra horizontal. Para isso, eu preicso limitar o movimento da figura com o mouse a essa barra horizontal. Algueém sabe como fazer?

Obrigado,
Walter

 
Postado : 30/05/2012 9:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente algo como..

Dim minLeft as Long, maxLeft = Long
Rem set minLeft and maxLeft
'...
With ActiveSheet.Shapes("MminhaFigura")
    .Left = Application.Min(.Left, maxLeft)
    .Left = Application.Max(.Left, minLeft)
End With

Veja também...
http://www.ozgrid.com/VBA/limit-scrolling-vba.htm

Att

 
Postado : 03/06/2012 7:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico