OpenOffice (Calc) [Résolu]

dali33 3 Messages postés dimanche 19 juin 2005Date d'inscription 13 novembre 2006 Dernière intervention - 10 nov. 2006 à 11:08 - Dernière réponse : dali33 3 Messages postés dimanche 19 juin 2005Date d'inscription 13 novembre 2006 Dernière intervention
- 13 nov. 2006 à 16:39
Je veux sélectionner une cellule dans une feuille Calc et y coller une image (contenue dans le presse papier).

La sélection d'une cellule avec le code suivant ne cause pas d'erreur, mais ne marche pas.
Dim args1(0) As Object

args1(0) = setOOoProp("Name", "ToPoint")

args1(0) = setOOoProp("Value", "$C$2")

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1)

dispatcher.executeDispatch(document, ".uno:Paste"
,
""
, 0, Args)

L'image est collée en A1
Quelqu'un a-t-il une solution à ce problème ou une autre façon d'insérer l'image (initialement dans un fichier) ?
Merci pour votre aide.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 10 nov. 2006 à 20:27
3
Merci
bonsoir

tu peux tester

Sub SelectionneCellule_Collage
Dim oCC As Object , Cellule As Object
Dim Args() As New com.sun.star.beans.PropertyValue



oCC = ThisComponent.CurrentController
Cellule = oCC.ActiveSheet.getCellRangeByName("C2")
oCC.Select(Cellule)



Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dispatcher.executeDispatch(oCC.Frame, ".uno:Paste", "", 0, Args)
End Sub




bon week end
michel

Merci michelxld 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de michelxld
dali33 3 Messages postés dimanche 19 juin 2005Date d'inscription 13 novembre 2006 Dernière intervention - 13 nov. 2006 à 13:37
0
Merci
Merci pour ton aide, cela marche.

J'avais essayé quelque chose de semblable, mais cela ne marchait pas.

PS: la ligne Dim Args() As New com.sun.star.beans.PropertyValue ne marche pas en VB2005, il est nécessaire de définir une fonction
Commenter la réponse de dali33
dali33 3 Messages postés dimanche 19 juin 2005Date d'inscription 13 novembre 2006 Dernière intervention - 13 nov. 2006 à 16:39
0
Merci
Nouveau problème

L'opération coller est dans une boucle et je veux coller une image contenue dans une imagelist.

Dim oCC
As

Object
, oCell
As

Object

Dim oImage
As
Image

For i = 0
To
PicturesNb - 1

'inserts a picture at the top left position of TargetCell
oImage = frmE.SlidesImageList.Images(i)

My.Computer.Clipboard.Clear()

My.Computer.Clipboard.SetImage(oImage)Application.DoEvents()

oCC = oCalc.CurrentController

oCell = oCC.ActiveSheet.getCellRangeByName(

"C" + (i + 2).ToString)oCC.Select(oCell)

dispatcher.executeDispatch(document,

".uno:Paste",
""
, 0, Args)

Next

En fait aucune image n'est insérée.

Cependant, si dans Mspaint on fait Coller, elle est effectivement collée !
La routine marche si on charge le clipboard avec Copier
Commenter la réponse de dali33

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.